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A finite  element  analysis  which  considers  geometric  nonlinearity,  material 
nonlinearity,  and  simulation  of  construction  sequences  is  developed.  The  analysis  was 
first  developed  to  solve  U-frame  structures  such  as  channels,  basins  and  locks  in  soil 
medium.  However,  it  can  be  used  to  solve  general  soil-structure  interaction  problems. 
The  construction  sequences  include  initial  condition,  dewatering,  excavation, 
embankment,  re-establishment  of  water  level,  and  installation  or  removal  of  supports 
idealized  as  bar  elements.  A computer  program  has  been  written  to  implement  and 
verify  the  analysis. 

The  method  of  analysis  is  based  on  the  incremental  method.  The  incremental 
method  requires  that  the  prescribed  loads  be  applied  in  small  but  finite  increments.  The 
complete  incremental  solution  can  be  obtained  by  using  iterative  techniques  such  as  the 
tangent  stiffness  method,  the  constant  stiffness  method,  and  the  modified  tangent  stiffness 
method.  However,  for  problems  with  construction  sequences,  difficulties  may  arise  for 
the  tangent  stiffness  method  and,  therefore,  a mixed  stiffness  method  which  can  detect 
unloading  and  converges  as  fast  as  the  tangent  stiffness  method  is  proposed. 

In  the  nonlinear  geometric  analysis,  the  updated  Lagrangian  formulation  is  used 
In  the  nonlinear  material  analysis,  the  elastic-plastic  Mohr-Columb,  Drucker-Prager 
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and  Cap  models  are  used  as  constitutive  laws.  The  Drucker-Prager  model  is  also  used  to 
verify  the  Rankine  theory  numerically. 

The  computer  program  is  verified  by  solving  1)  a number  of  problems  involving 
various  sequences  of  construction  and  problems  involving  nonlinear  geometric  and 
nonlinear  material  behavior  and  2)  complex  field  problems.  The  latter  includes  the 
analysis  of  a U-frame  lock  and  the  analysis  of  an  open  excavation  involving  a braced 
retaining  wall.  The  predictions  are  compared  with  closed-form  solutions,  numerical 
results  from  other  investigators,  and  field  observations.  It  is  felt  that  the  finite  element 
procedure  and  program  developed  can  provide  a general  solution  scheme  for  two- 
dimensional  soil-structure  interaction  problems. 


CHAPTER  1 


INTRODUCTION 

U-frame  type  structures  such  as  channels,  basins  and  locks  are  often  used  to 
facilitate  flood  control  or  navigation  in  inland  waterways.  To  design  these  structures 
properly,  the  distribution  of  pressure  on  the  base  slab  and  earth  pressure  along  the  wall 
needs  to  be  known  accurately.  These  distributions  are  difficult  to  predict  by  using 
conventional  procedures,  principally  due  to  the  complexity  of  the  interaction  between 
the  structure  and  the  soil  mass.  If  the  complete  loading  history  is  considered,  additional 
complications  arise.  The  deformation  behavior  of  soil  media  is  usually  dependent  on  the 
history  of  loading  and  unloading.  Hence,  it  is  more  realistic  to  analyze  U-frame 
structures  by  simulating  the  construction  sequences  in  order  to  account  for  the  stress 
history  effects.  In  this  research  the  finite  element  method  will  be  used  to  analyze  U- 
frame  structures. 

The  direct  stiffness  method  of  finite  element  analysis  is  by  now  well  established 
and  widely  used  for  the  solution  of  small  displacement,  elastic  structural  or  geotechnical 
problems.  Various  types  of  elements  have  been  developed  and  general  purpose  computer 
programs  now  exist.  Since  the  establishment  of  the  method,  there  has  been  much 
interest  in  extending  the  method  for  nonlinear  analysis.  The  nonlinearities  arise  from 
two  distinct  sources:  material  nonlinearities  and  geometric  nonlinearities,  the  latter 
being  due  to  large  displacements. 

Nonlinear  Elastic  Finite  Element  Analysis 

Clough  and  Duncan  [17,  36]  developed  a very  elaborate  finite  element  program 
called  SOIL-STRUCT  to  analyze  the  Port  Allen  Lock.  The  program  used  a nonlinear 
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elastic  model  by  Duncan  and  Chang  [35]  to  describe  the  soil  stress-strain  behavior  and 
has  subroutines  for  stress  initialization  and  simulating  incremental  construction  and 
loading.  The  incremental  construction  and  loading  may  consist  of  excavation  and 
dewatering  of  the  soil,  buildup  of  the  structure  and  backfill,  reestablishment  of  normal 
ground  water  conditions,  boundary  water  pressure  loading  on  the  structure,  and 
temperature  loading  of  structural  material.  SOIL-STRUCT  also  has  special  interface 
elements  to  allow  the  relative  displacements  on  the  boundary  between  the  structure  and 
the  surrounding  soil  mass.  The  behavior  of  these  interface  elements  can  again  be 
expressed  by  the  nonlinear  elastic  model.  Radhakrishnan  and  Jones  [75]  later  did  some 
minor  modifications  to  SOIL-STRUCT.  The  modified  program  still  uses  the  same 
nonlinear  elastic  soil  model. 

Elastic-Plastic  Finite  Element  Analysis 

Although  nonlinear  elastic  models  have  been  applied  to  soils  leading  to  useful 
results,  the  main  physical  feature  leading  to  a soil's  nonlinear  behavior  is  the 
irrecoverability  of  strain.  A convenient  mathematical  framework  for  describing  this 
phenomenon  is  to  be  found  in  the  theory  of  plasticity.  In  this  research,  elastic-plastic 
models  based  on  the  theory  of  plasticity  will  be  used  to  describe  the  soil  stress-strain 
behavior.  Many  plasticity  models  have  been  proposed  [1,  31,  32,  58,  59,  79,  82]. 
Accuate  modeling  of  soil  is  very  difficult  because  of  the  various  parameters  involved, 
which  determine  the  behavior  of  the  model.  But  it  is  still  possible  to  come  up  with  a 
resonable  accurate  model  for  particular  cases. 

Many  finite  element  analyses  have  been  done  by  using  elastic-plastic  material 
models  and  some  of  them  include  construction  sequences  [24,  27,  61,  64,  81].  Mana 
[64]  used  the  Drucker-Prager  model  in  the  finite  element  analyses  of  deep  excavation 
behavior  in  soft  clay.  The  same  model  was  used  by  Sargand  [81]  in  a hybrid  finite 
element  procedure  for  soil-structure  interaction  and  construction  sequences.  Lightner 
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[61]  continued  Sargand's  work  by  using  Von  Mises,  Drucker-Prager  and  Cap  models  in  a 
mixed  finite  element  analysis. 

Geometrically  Nonlinear  Finite  Element  Analysis 

For  a number  of  years,  the  basic  tools  to  treat  structural  and  geotechnical 
problems  have  been  small-strain  elasticity  and  plasticity.  Significantly  less  effort  has 
been  spent  to  introduce  the  equally  important  concept  of  finite  strains  and  large 
deformations.  Although  in  structural  engineering  the  geometric  nonlinearity  has  been 
applied  to  plate,  shell  and  beam-column  structures  [5,  45,  46,  54,  70],  small 
displacement  and  small  strain  assumptions  still  seem  to  be  acceptable  for  many  steel  and 
concrete  structures.  However,  this  assumption  seems  to  have  very  limited  applicability 
in  geotechnical  engineering.  The  soil  medium  is  generally  subjected  to  loadings  which 
give  rise  to  large  deformations.  The  area  around  a penetrating  pile  is  a very  good 
example  of  the  inadequacy  of  small  strain  theory  to  describe  the  actual  physical 
phenomena.  The  soil  medium  deformation  close  to  a shallow  footing  is  another  good 
example  of  a problem  exhibiting  strong  geometrical  nonlinearities.  It  would  be  more 
realistic  to  consider  the  geometric  nonlinearity  in  soil-structure  interaction  problems. 

Purpose  of  This  Research 

Investigation  of  structures  involving  material  and  geometric  nonlinear  behavior 
has  been  a subject  of  study  for  a long  time.  Notable  contributions  have  been  made  by 
various  investigators  using  the  finite  element  method.  Most  of  these  studies  have 
considered  systems  such  as  framed  and  space  structures,  plates  and  shells;  some  studies 
have  considered  nonlinear  behavior  of  geological  bodies.  However,  no  computer  analysis 
is  known  that  considers  the  effects  of  both  geometric  and  material  nonlinearities  in  the 
simulation  of  construction  sequences.  The  purpose  of  this  research  is  to  develop  such  a 
computer  analysis. 
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The  research  described  herein  is  an  attempt  to  examine  some  of  the  features  of  a 
large  deformation  finite  element  formulation  as  applied  to  nonlinear  material  problems 
of  modeling  construction  sequences.  The  research  is  divided  into  four  main  parts.  They 
are 

(1)  theoretical  development 

(2)  computer  implementation  of  the  theory 

(3)  verification  of  the  theory  and  computer  code  through 
the  solution  of  a variety  of  problems 

(4)  analysis  of  U-frame  structures 

Outline  of  Presentation 

Chapter  2 reviews  a general  method  of  nonlinear  analysis  called  the  incremental 
method  which  is  well  suited  for  the  stress-dependent  nonlinear  geometric  and/or 
material  problems. 

In  Chapter  3,  the  incremental  development  of  the  governing  continuum  mechanics 
equations  for  elastic-plastic  bodies  subjected  to  large  strains  and  large  displacements  is 
presented  by  using  the  updated  Lagrangian  formulation.  Then  the  finite  element  method 
is  used  to  solve  these  equations. 

Chapter  4 gives  a brief  review  of  the  theories  of  elasticity  and  plasticity,  then 
describes  the  constitutive  laws  which  are  used  in  this  research.  Also,  in  this  chapter  the 
constitutive  laws  for  two  interface-element  models  are  presented. 

Chapter  5 describes  the  procedures  for  modeling  various  stages  of  construction 
sequences  such  as  insitu  stresses,  dewatering,  excavation,  embankments  and  support 
systems. 

In  Chapter  6,  a brief  description  of  the  associated  computer  program  is  given. 
After  that,  the  iteration  methods  used  in  the  program  to  solve  the  nonlinear  incremental 
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equations  are  discussed  and  a new  iteration  method  is  proposed  to  solve  problems  with 
unloading. 

In  Chapter  7,  the  computer  program  is  verified  by  solving  a few  available 
problems  and  by  comparing  predictions  with  the  exact  solutions  or  the  solutions  obtained 
by  other  investigators. 

In  Chapter  8,  the  discrete  element  method  is  applied  to  solve  the  U-frame 
structure.  The  q-w  (soil  response)  curves  used  in  the  discrete  element  analysis  are 
generated  using  the  finite  element  method. 

Chapter  9 presents  the  practical  application  of  the  new  computer  analysis  to  two 
field  structures  involving  soil-structure  interaction  with  construction  sequences.  The 
obtained  results  are  compared  with  those  from  observed  field  data. 

Finally,  in  Chapter  10,  a discussion  of  the  completed  research  is  given  with 
recommendations  for  future  studies. 


CHAPTER  2 


NONUNEAR  ANALYSIS 


In  this  chapter,  an  extremely  powerful  method  of  nonlinear  analysis  called  the 
incremental  method  is  reviewed.  The  incremental  method  requires  that  the  prescribed 
loads  be  applied  in  small  but  finite  increments.  The  complete  incremental  solution  is 
shown  to  contain  an  iterative  solution  within  each  increment.  The  incremental  solution 
algorithm  is  then  extended  to  problems  with  construction  sequences. 


In  the  linear  finite  element  analysis,  it  is  assumed  that  the  displacements  and 
strains  developed  in  the  structure  are  infinitesimally  small  and  that  the  material  is 
linearly  elastic.  With  these  assumptions,  the  finite  element  equilibrium  equations  can 
be  written  for  static  analysis  as  [4,  77] 


Linear  Finite  Element  Analysis 


[K]{U]  = {0} 


(2.1) 


where  {Q}  = {Q}b  + {Q}s+  {Q}c 


(2.2) 


The  load  vector  {Q}  includes  the  effect  of  the  element  body  forces, 


{Q)b  = I Jv  [N](m)T  (fb}(m)  dV(™) 


(2.3) 


m 


the  effect  of  the  element  surface  forces 
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{Q}S  = X Jv  [N](m)T  (fS}(m)  dV(m)  (2.4) 

m 

and  the  effect  of  the  concentrated  loads,  {Q)c- 

The  matrix  [K]  is  the  stiffness  matrix  of  the  element  assemblage, 

[K]  = llv  [B](m)T[C](m)[B](m)dV(m)  (2.5) 

m 

In  the  above  equations,  [B](m)  is  the  strain-displacement  matrix,  [C](m)  is  the 
elasticity  matrix,  [N](m)  is  the  displacement  interpolation  matrix,  {fb}(m)  is  the  vector 
of  body  forces,  {fs}(m)  is  the  vector  of  surface  tractions  and  the  superscript  m denotes 
element  m. 

These  equations  correspond  to  a linear  analysis  because  the  displacement 
response  {U}  is  a linear  function  of  the  applied  load  vector  {Q};  i.e.,  if  the  loads  are  n{Q} 
instead  of  {Q},  where  n is  a constant,  the  corresponding  displacements  are  n{U}. 
However,  this  is  not  the  case  for  a nonlinear  analysis. 

The  linearity  of  a response  prediction  rests  on  the  assumptions  stated  above  and 
it  is  instructive  to  identify  where  these  assumptions  have  entered  into  the  finite  element 
equilibrium  equations.  The  fact  that  the  displacements  must  be  small  has  entered  into 
the  evaluation  of  the  matrix  [K]  and  load  vector  {Q},  because  all  integrations  have  been 
performed  over  the  original  volume  of  the  finite  elements,  and  the  strain-displacement 
matrix  [B]  as  well  as  the  the  displacement  interpolation  matrix  [N]  of  each  element  was 
assumed  to  be  constant  and  independent  of  the  element  displacements.  The  assumption  of  a 
linear  elastic  material  is  implied  in  the  use  of  a constant  stress-strain  matrix  [C]. 

The  above  discussion  of  the  basic  assumptions  used  in  a linear  analysis  implicitly 
defines  the  material  and  geometric  nonlinearities  to  be  considered  in  this  study. 


8 


Nonlinear  Finite  Element  Analysis 

In  the  materially  nonlinear  analysis,  the  nonlinear  effect  lies  in  the  nonlinear 
stress-strain  relation,  which  is  dependent  on  the  value  of  the  nodal  displacements.  The 
displacements  and  strains  are  assumed  to  be  infinitesimally  small.  In  the  geometrically 
nonlinear  analysis,  the  material  is  subjected  to  large  displacements  and  large  strains.  In 
other  words,  the  changes  of  geometry  brought  by  displacements  can  no  longer  be 
neglected  and  the  nonlinear  strain-displacement  relation  is  considered  in  the  analysis.  In 
this  case  the  stress-strain  relation  is  also  usually  nonlinear. 

Before  discussing  the  nonlinear  analysis,  a time  variable  t is  first  introduced  to 
conveniently  describe  the  loading  and  the  motion  of  a body.  In  a static  analysis  without 
time  effects  (e.g.,  without  creep  effects),  time  is  only  a variable  which  denotes  different 
intensities  of  load  applications  and  corresponding  different  configurations. 

The  basic  problem  in  a general  nonlinear  analysis  is  to  find  the  state  of 
equilibrium  of  a body  corresponding  to  the  applied  loads.  Whether  the  analysis  is  linear 
or  nonlinear,  equilibrium  conditions  between  internal  and  external  forces  have  to  be 
satisfied.  Thus,  if  the  displacements  are  prescribed  by  a finite  number  of  nodal 
displacements,  the  necessary  equilibrium  equations  can  be  obtained  by  using  the  virtual 
work  principle  as 


1{Q}  - t{F}  = {0} 

(2.6) 

= t[B](m)T  t{x}(m)t  dV("i) 

m lv'm' 

(2.7) 

where  the  vector  1{Q}  lists  the  externally  applied  nodal  point  forces  in  the  configuration 
at  time  t,  and  the  vector  1{F}  lists  the  nodal  forces  that  correspond  to  the  element 
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stresses  l{x}  in  this  configuration.  In  a general  large  deformation  analysis  the  stress  as 
well  as  the  volume  of  the  body  at  time  t is  unknown. 

The  discretized  general  nonlinear  finite  element  equations  can  be  obtained  from 
Equations  2.6  and  2.7  and  written  in  terms  of  the  unknown  nodal  displacement  as 

t[K(U)]t{U}  = HQ}  (2-8) 

While  the  solution  of  a linear  equation  system  can  be  accomplished  without  any 
difficulty  in  a direct  manner,  this  is  not  possible  for  nonlinear  systems.  The  nonlinear 
solution  process  consists  in  searching  vector  {U}  that  renders  the  residual,  HQ}  - 
H^IOKU},  as  small  as  possible.  An  exact  solution  would  make  the  residual  vanish.  The 
above  nonlinear  equations  are  generally  solved  using  the  following  iteration  methods  or 
methods  derived  from  them: 

(1)  secant  method 

(2)  Newton-Raphson  method  (tangent  stiffness  method) 

(3)  incremental  method 

In  some  nonlinear  static  problems  only  the  displacements  and  stresses  reached  at 
specific  load  levels  are  required.  In  such  a case,  the  solutions  can  be  accomplished  in  a 
one-step  operation  using  the  Secant  or  Newton-Raphson  method.  However,  when  the 
analysis  includes  path-dependent  nonlinear  geometric  or  material  conditions,  the 
equilibrium  relations  in  Equation  2.6  need  be  solved  for  the  entire  history  of  loading.  It 
would  then  appear  that  it  is  necessary  to  solve  the  nonlinear  problem  in  steps.  The 
calculation  of  the  step  by  step  solution  can  be  effectively  carried  out  by  the  incremental 
method,  in  which  the  prescribed  loads  are  considered  to  be  applied  in  small  but  finite 
increments.  Before  describing  the  incremental  solution,  some  of  the  advantages  of  the 
incremental  method  are  listed  below: 
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(1)  The  incremental  analysis  reduces  to  a one-step  analysis  if  in  a static 
solution  the  total  load  is  applied  all  together  and  only  the  configuration  corresponding  to 
that  load  is  calculated. 

(2)  The  solution  of  the  one-step  analysis  is  not  guaranteed  to  converge  in  all 
circumstances.  In  practice,  the  analysis  of  such  a case  frequently  requires  an 
incremental  solution  with  a number  of  load  steps  to  finally  reach  the  total  applied  load. 

(3)  With  the  incremental  method,  by  choosing  a suitably  small  load  increment 
convergence  can  be  guaranteed  and,  as  pointed  out  by  Zienkiewicz  [97],  results  of  a 
reasonable  kind  will  generally  be  available. 

In  the  next  chapter,  the  incremental  formulation  is  employed  to  derive  the 
governing  finite  element  equations  used  in  this  research. 

Incremental  Steo-bv-Step  Solution 

The  basic  approach  in  an  incremental  step-by-step  solution  is  to  assume  that  the 
solution  for  the  discrete  time  t is  known,  and  that  the  solution  for  discrete  time  t+At, 
which  is  the  solution  after  adding  a suitably  chosen  load  increment,  is  required.  The 
equilibrium  equations  at  time  t+At  can  be  expressed  as 

t+At{Q}  - t+At{F}  = {0}  (2.9) 

Since  the  solution  is  known  at  time  t,  t+At{F}  can  be  written  as 

t+At{F}  = t{F}  + {aF}  (2.10) 

where  {AF}  is  the  vector  of  incremental  nodal  forces  due  to  the  increment  in  element 
stresses  from  time  t to  time  t+At.  This  vector  can  be  approximated  using  the  following 
linearized  equation: 


1 1 


{AF}  = l[K]{AU} 


(2.11) 


where  *[«]  is  the  tangent  stiffness  matrix  corresponding  to  the  geometric  and  material 
condition  at  time  t and  {All}  is  a vector  of  incremental  nodal  point  displacements.  The 
incremental  form  of  the  discretized  nonlinear  equations  can  be  obtained  by  substituting 
Equations  2.11  and  2.10  into  Equation  2.9  as 


After  solving  Equation  2.12  for  {All},  an  approximation  to  the  displacements  at  time 
t+  At  can  be  calculated, 


The  calculation  in  Equation  2.13  is  only  an  approximation  to  the  exact 
displacements  at  time  t+At  because  Equation  2.1 1 was  used. 

After  having  evaluated  an  approximation  to  the  displacements  corresponding  to 
time  t+At,  an  approximation  to  the  stresses  and  corresponding  nodal  point  forces  at  time 
t+At  can  be  solved  and  then  the  next  increment  calculations  can  be  performed.  However, 
because  of  the  linearized  incremental  relations  in  Equation  2.11,  such  a solution  may 
deviate  significantly  from  the  real  nonlinear  path  and,  depending  on  the  load  increment 
sizes  used,  may  indeed  be  unstable.  To  correct  this  deviation,  in  practice,  it  is  therefore 
frequently  necessary  to  iterate  until  the  solution  of  Equation  2.9  is  obtained  to  sufficient 
accuracy. 

If  the  Newton-Raphson  iteration  is  used,  Equations  2.12  and  2.13  can  be  written, 
for  i = 1,  2,  3, as 


1[K]{AU}  = t+At{Q}  - t{F} 


(2.12) 


t+At{u}  = t{U}  + {AU} 


(2.13) 
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t[K](i‘1 ) {AU}(‘)  = t+A,{Q}  - t+At{F}('-1 ) 


(2.14) 


t+At{U}(')  = t+At{U}(i-1)  + {A  U}  (') 


(2.15) 


with  the  initial  conditions  t+At[K](°)  = t[K],  t+At{U}(°)  = '{U},  and  t+At{F}(°)  = 1{F}. 

Instead  of  computing  a different  stiffness  matrix  for  each  iteration,  some 
modified  iterative  techniques  have  been  employed.  One  such  modification  is  to  use  the 
initial  stiffness  matrix,  °[K],  at  each  iteration.  Thus,  Equation  2.14  can  be  modified  as 


with  the  initial  conditions  t+At{F}(°)  = t{F),  t+At{U}(°)  = *{11}.  This  "initial  stiffness" 
method  may  result  in  a very  slowly  convergent  solution. 

Another  modification  of  the  tangent  stiffness  algorithm  is  that  the  tangent 
stiffness  is  revised  only  between  load  increments  so  that  a reformation  of  the  stiffness 
matrix  between  load  increments  is  not  required.  In  other  words,  the  tangent  stiffness 
matrix  is  updated  at  the  beginning  of  each  increment.  Thus,  Equation  2.14  can  be 
written  as 


with  the  initial  conditions  t+At{Fj(o)  = t{F}i  t+At|u}(o)  = The  above  approach  is 

probably  best  when  a large  number  of  increments  are  applied. 

It  was  observed  by  many  investigators  [22,  25,  98]  and  by  the  author  that 
usually  the  Newton-Raphson  iteration  is  the  fastest,  most  accurate,  and  most  economical. 
The  solution  within  an  increment  can  generally  converge  with  very  high  accuracy  in  less 


°[K]{AU}(')  = t+At{Q}(M>  - t+At{F}(i-1) 


(2.16) 


t[K]{AU}(0  = ,+At{Q}  - t+At{F}(i-1) 


(2.17) 
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than  about  ten  iterations.  However,  the  program  documented  herein  allows  the  user  to 
choose  any  one  of  the  three  iterations  describe  above. 

The  above  iteration  solution  used  might  be  described  as  an  incremental  loading 
iterative  solution;  that  is,  loads  are  applied  in  increments,  and  within  each  increment  an 
iterative  solution  is  performed  until  the  full  value  of  loading  at  the  end  of  the  increment 
is  absorbed  by  the  structure.  Figures  2-1,  2-2,  and  2-3  show  respectively  how  each  of 
the  three  iterations  works  with  the  incremental  method  in  a one  dimensional  problem.  It 
will  be  shown  in  Chapter  6 that  a new  iteration  method  is  proposed  to  solve  problems 
with  unloading. 


Sequence-bv-Sequence  Solution 

To  extend  the  above  solution  procedure  to  problems  with  construction  sequences, 
the  above  incremental  loading  iterative  solution  must  be  performed  for  each 
construction  sequence.  The  sequence-by-sequence  solution  might  be  described  as  a 
sequential  incremental  loading  iterative  solution;  that  is,  loads  are  applied  in  sequences, 
within  each  sequence  loads  are  applied  in  increments,  and  within  each  increment  an 
iterative  solution  is  performed.  The  details  of  forming  the  tangent  stiffness  matrix  are 
developed  in  Chapter  3 and  Chapter  4;  and  the  details  of  forming  the  loading  matrix  for 
each  construction  sequence  are  discussed  in  Chapter  5. 


Load 
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Figure  2-1  Tangent  stiffness  method 


Load 
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Figure  2-2  Constant  stiffness  method 


Load 


Figure  2-3  A modified  stiffness  method  (Recompute  the  tangent  stiffness  at  the 

begining  of  each  increment) 


CHAPTER  3 


UPDATED  LAG  RANG  IAN  FORMULATION 

As  stated  in  Chapter  2,  in  nonlinear  analyses  dealing  with  both  geometric  and 
material  nonlinearities,  an  incremental  solution  scheme  is  the  most  suitable  approach. 
In  this  chapter,  a general  incremental  formulation  for  elastic-plastic  bodies  subjected 
to  large  strains  and  large  displacements  is  presented.  The  formulation  is  in  updated 
Lagrangian  coordinates  and  is  based  on  the  principle  of  virtual  work.  In  the  formulation, 
it  is  shown  that  the  iterative  methods  can  be  applied  to  the  obtained  governing 
incremental  continuum  mechanics  equations.  Then  the  governing  finite  element 
equations  used  in  this  study  are  derived  from  these  equations.  In  the  incremental 
solution,  the  Jaumann  stress-rate  tensor  is  used  to  update  the  stresses  in  the  body. 
However,  a discussion  of  the  Jaumann  stress-rate  tensor  indicates  that  it  can  only  apply 
to  isotropic  materials. 

Formulation  of  the  Continuum  Mechanics  Incremental  Equations 
In  the  development  to  follow,  the  motion  of  a general  body  is  considered  in  a 
stationary  Cartesian  coordinate  system,  and  it  is  assumed  that  the  body  can  experience 
large  displacements,  large  strains  and  a nonlinear  stress-strain  response.  To  describe 
the  deformation  of  a body,  as  shown  in  Figure  3-1,  three  configurations  at  different 
times  are  introduced: 

the  initial  state  t = 0 
the  current  state  t = t 
the  subsequent  state  t = t + At 
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Figure  3-1  Motion  of  body  in  stationary  cartesian  coordinate  system 
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To  formulate  the  equations  governing  an  increment  of  deformation,  the  current  and 
subsequent  configurations  are  used.  The  stresses,  strains  and  displacements  in  the 
current  configuration  are  presumed  known  and  have  been  determined  through  a sequence 
of  incremental  steps.  The  subsequent  configuration  is  reached  through  a further 
increment  of  deformation,  and  it  is  the  incremental  stresses,  strains  and  displacements 
at  time  t+At  that  have  to  be  determined. 

It  is  useful  at  this  point  to  describe  the  notation  which  will  be  used.  In  presenting 
the  continuum  mechanics  relation  for  the  large  deformation  analysis,  the  traditional 
indicial  and  tensor  notation  is  employed  [38,  63].  In  addition  to  that,  a left  subscript 
and  superscript  notation  is  introduced  [4,  6].  A left  superscript  indicates  in  which 
configuration  the  variable  or  the  quantity  occurs.  For  example,  the  coordinates  of  a 
point  in  the  body  at  time  0 are  °x-|,  °X2,  °X3;  at  time  t they  are  lxi,  lX2,  *X3;  at  time 
t+At  they  are  t+Atx-|,  t+AtX2,  t+AtX3  and  the  volumes  of  the  body  at  times  0,  t,  and  t+At 
are  °V,  lV,  and  t+AtV. 

Since  the  configuration  of  the  body  at  time  t+At  is  not  known,  as  it  will  be  shown 
later,  it  is  necessary  to  refer  applied  forces,  stresses,  and  strains  to  a known 
equilibrium  configuration.  In  analogy  to  the  notation  used  for  coordinates,  a left 
superscript  indicates  in  which  configuration  the  quantity  (stress,  strain,  etc.)  occurs; 
in  addition,  a left  subscript  indicates  the  configuration  with  respect  to  which  the 
quantity  is  measured.  For  example,  the  body  force  components  at  time  t+At,  but 
measured  in  configuration  0,  are  t+A[,fbj,  i = 1,  2,  3. 

Before  beginning  the  formulation,  it  might  be  helpful  to  introduce  some  of  the 
terminology  to  be  used  here  [4,  38,  63]: 

Xy  --  Current  Cartesian  stress  tensor  referred  to  a global  reference  frame.  It 

is  to  be  clearly  understood  that  these  are  the  physical  stress  components  representing 
force  per  unit  area  of  the  current  geometry.  This  tensor  is  called  Cauchy  stress  tensor 
in  the  engineering  mechanics  literature. 
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Sy  --  2nd  Piola-Kirchhoff  stress  tensor.  This  tensor  will  be  formally  defined 
later,  it  being  noted  however  in  this  study  the  2nd  Piola-Kirchhoff  stress  tensor 
describes  the  stress  state  in  the  subsequent  configuration  as  referred  to  the  geometry  of 
the  current  configuration.  These  are  not  physical  stress  components  as  defined  above. 

£jj  - Green-Lagrange  strain  tensor.  This  is  the  tensor  used  with  the  2nd 

Piola-Kirchhoff  stress  tensor  and  is  defined  as 


+ 


Uj.i  + Uk.iUk.j) 


(3.1) 


ey  - Infinitesimal  strain  tensor.  This  tensor  is  defined  as 

eij  = 2 (U'J  + ui-^  (3-2) 


Referring  to  Figure  3-1,  equilibrium  of  the  subsequent  state  is  implied  by  the 
virtual  work  expression 

lt+Aty  t+Atxij  5t+Ateij  ,+AtdV  = t+Atw  (3.3) 

The  right-hand  side  of  Equation  3.3  is  the  virtual  work  performed  when  the  body  is 
subjected  to  a virtual  displacement.  The  corresponding  external  virtual  work  is  W,  with 

t+Atw  = Jt+Atv  t+Atfbj  8ui  t+A,dV  + Jt+Ats  t+Atfsi  5uj  t+AtdS  (3.4) 

where  the  t+A,fbj  and  t+Atfsi  are  the  components  of  the  externally  applied  body  and 
surface  force  vector,  respectively.  In  Equations  3.3  and  3.4,  8uj  is  a (virtual)  variation 
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in  current  displacement  components  t+Atui,  and  St+Atey  are  the  corresponding  (virtual) 
variation  in  strains;  i.e. 


Equation  3.3  expresses  the  equilibrium  and  requirement  of  the  body  considered 
in  the  subsequent  configuration  and  the  constitutive  equations  enter  Equation  3.3  in  the 
calculation  of  the  stresses. 

A fundamental  difficulty  in  the  general  application  of  Equation  3.3  is  that  the 
subsequent  configuration  of  the  body  at  time  t+At  is  unknown.  To  solve  Equation  3.3,  it 
would  appear  to  be  necessary  first  to  refer  all  the  variables  to  a previously  calculated 
configuration  and  then  the  resulting  equations  can  be  solved  by  using  the  linearization 
process  described  in  Chapter  2.  If  they  are  referred  to  the  undeformed  (original) 
configuration,  the  approach  is  called  the  total  Lagrangian  formulation  and  if  they  are 
referred  to  the  recently  computed  configuration,  the  approach  is  called  the  updated 
Lagrangian  formulation  [3,  4,  6,  25,  49,  63,  72].  In  this  study,  all  variables  at  time 
t+At  are  referred  to  the  current  configuration  at  time  t.  Thus,  the  updated  Lagrangian 
formulation  is  used  to  develop  the  governing  incremental  equations. 

In  the  updated  Lagrangian  formulation,  Equation  3.3  is  transformed  into 


St+Ateij  = 5 2 (t+AtUjJ  + t+AtUj,i) 


(3.5) 


Jtv  t+AiSy  8,+A\eij  !dV  = t+Atw 


(3.6) 


where  t+A]Sy  are  the  second  Piola-Kirchhoff  stresses,  related  to  the 
Cauchy  stresses  by 


(3.7) 
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and  £y  are  the  Green-Lagrange  strains. 

By  using  an  incremental  decomposition,  the  stresses  and  strains  at  time  t+ At  can 
be  written  as 


,+A,tSy  = Hy  + Sy  (note  that  lSy  = ky) 

(3.8) 

St+Atey  = 5tey  + Stn  jj 

(3.9a) 

1 , 

te ij  = 2 (tu  i,j  + tUj.i) 

(3.9b) 

1 

tnij  = 2 tu k, i tu k, j 

(3.9c) 

where  Sy  is  the  incremental  2nd  Piola-Kirchhoff  stress  tensor  and  tey,  tny  are  the 
linear  and  nonlinear  incremental  strains  which  are  referred  to  the  configurations  at 
time  t. 

By  using  Equations  3.8  and  3.9,  the  incremental  form  of  Equation  3.6  can  be 
written  as 


Jtv  Sy  5t£y  ldV  + Jtv  *xy  5tny  ldV  = t+AtW  - Jtv  ky  8tey  ld  V (3.10) 

To  this  point  no  approximating  assumptions  have  been  made.  Equation  3.10  is  an 
exact  statement  of  the  equilibrium  of  the  subsequent  configuration.  Approximate 
solutions  to  Equation  3.10  can  be  obtained  by  using  a linear  relationship  between  the 
incremental  stresses  and  strains.  Thus  the  incremental  stresses  can  be  expressed  as 
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Sjj  = tCijrs  £rs  (3.11) 

By  substituting  Equation  3.11  into  Equation  3.10  and  using  the  following  approximations 


Sjj  = tCjjrs  t6rs 

(3.12) 

and  8f£jj  = 8t©y 

(3.13) 

the  linearized  incremental  equation  can  be  written  as 

Jtv  tCijrs  ters  5te jj  kJV  + Jtv  5tny  *dV  = t+AtW  - 

J,v  ^ij  Stejj  «dV  (3.14) 

Due  to  linearization,  the  obtained  solution  may  be  subject  to  very  significant 
error.  Thus,  there  is  an  out-of-balance  virtual  work  in  the  right-hand  side  of  Equation 
3.10.  In  order  to  further  reduce  the  out-of-balance  virtual  work,  the  solution  step  is 
repeated  until  the  difference  between  the  external  virtual  work  and  the  internal  virtual 
work  is  negligible  within  a certain  convergence  measure.  Equation  3.10  solved 
repetitively,  for  k = 1,  2,  3 can  be  written  as 

Jt+Atv(k)  tCjjrs^  Aters^  fyey  *dV  + 

Jt+Atv(k)  lXij(k)  5Atny(k)  tdv  = t+Atw  . (3.!  5) 


Jt+Atv(k-1)  t+Atxy(k-1)  5t+Ateij(k1  J t+A,dV 


24 


where  k = 1 corresponds  to  the  relation  in  Equation  3.14. 

The  relation  in  Equation  3.15  corresponds  to  a Newton-Raphson  iteration.  The 
iteration  is  performed  by  updating  the  components  of  the  constitutive  and  stress  tensors 
on  the  left-hand  side,  which  corresponds  to  the  use  of  a tangent  stiffness  matrix  during 
the  iteration. 

So  far  it  is  assumed  that  the  loading  is  deformation-independent  and  can  be 
specified  prior  to  the  incremental  analysis.  Thus,  the  expression  in  Equation  3.4  can  be 
evaluated  using 


which  is  only  possible  for  the  concentrated  loading  that  does  not  change  direction  as  a 
function  of  the  deformations.  However,  if  the  structure  is  not  highly  distorted,  it  is 
reasonable  to  assume  that  the  loading  is  deformation-independent.  As  pointed  out  by 
many  investigators,  if  the  external  virtual  work  is  deformation-dependent,  there  would 
be  a non-symmetric  contribution  to  the  stiffness  matrix,  and  this  is  hardly  effective 
computationally  if  the  load  steps  are  small  and  equilibrium  iterations  are  employed.  It 
would  become  more  complicated  if  the  loading  is  applied  in  sequences.  In  this  study,  it  is 
assumed  that  the  loading  is  deformation-independent,  and  a more  detailed  discussion  of 
forming  the  loading  matrix  for  each  construction  sequence  will  be  given  in  chapter  5. 


To  solve  Equation  3.14  the  finite  element  method  is  used.  For  this  purpose  the 
domain  of  integration  is  approximated  as  an  assemblage  of  discrete  finite  elements  with 
elements  being  interconnected  at  nodal  points  on  the  element  boundaries.  To  derive  the 


(3.16) 


Finite  Element  Discretization 
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finite  element  equations,  only  the  basic  formulations  of  the  finite  element  method  will  be 
dealt  with  here. 

The  incremental  displacements  within  each  element  are  assumed  to  be  a function 
of  the  incremental  displacements  at  the  element  nodal  points 

{u}  = [N](m)  {U}(m>  (3.17) 

where  [N](m)  is  the  interpolation  matrix  for  displacement,  the  superscript  m denotes 
element  m and  {U}(m)  is  the  global  incremental  displacement  components  at  the  element 
nodal  points. 

The  incremental  relation  between  the  linear  components  of  the  strain  and  nodal 
displacements  in  element  m is  expressed  by 

{e}  = [BL](m)  {U}(m)  (3.18) 

where  [BL](m)  is  the  linear  strain-displacement  transformation  matrix  and  {e}  is  the 
vector  of  incremental  strains. 

Variations  of  strains  are  related  to  variations  of  displacements  by  the  same 
matrix  [BL] : 

{8e}  = [BL](m)  {8U}(m)  (3.19) 

To  define  the  incremental  nonlinear  components  of  the  strain,  a vector,  {£},  is 
introduced  and  defined  as 


{^}  = [BN](m){U}(m) 


(3.20) 
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where  [BN](m)  is  the  nonlinear  strain-displacement  transformation  matrix  and  {^}  is 
used  to  define  those  terms  in  Ujj. 

Variations  of  {£}  are  expressed  as 

{Si;}  = [BN](m){SU}(m)  (3.21) 

Note  that  Equations  3.20  and  3.21  are  used  to  define  Sny. 

If  the  loading  is  deformation-independent,  Equation  3.9  can  be  written  as 

Jtv  tCjjrs  ters  8tey  *dV  + Jtv  ^ij  8tnij  = 

Jos  ,+Ay®i  Sui  °dS  + Jov  ,+Aybi  Sui  °dV  - Jtv  ttjj  Stejj  *dV  (3.22) 

Substitution  of  Equations  3.17,  3.18,  3.19,  3.20  and  3.21  into  Equation  3.22 
and  a change  from  tensor  to  matrix  notation  gives 

lJtv  {5U}(m)T  t[BL](m)T  t[C](m)  t[BL](m)  {U}(m)  *dV  + 
m 

lltv  {5U}(m)T  1[BN](m)T  t[x](m)  t[BN](m)  {U}(m)  *dV  = 
m 

lltv  {5U}(m)T  [N](m)T  ,+Ao{fs}(m)  °dV  + (3.23) 

m 

I Jtv  {5U}(m)T  [N](m)T  t+Ao{fb}(m)  °dV  + 
m 

I Jtv  {511} (m)T  t[BL](m)T  *{t}(m)  *dV 

m 
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Since  Equation  3.17  must  be  satisfied  for  all  kinematically  admissible  virtual 
nodal  displacements,  it  leads  to 


t[K]{U}  = t+A,{Q}  - *{F}  (3.24) 

where  [K]  = [KL]  +[KN]  (3.25) 

[KL]  = X Jtv  \[BL]t  t[C]  {[BL]  tdV  (3.26) 

m 

[KN]  = lJtv«BN]T  tlx]  ([BN]  *dV  (3.27) 

m 

t+At{Q}  = £ J0g  [N]  0dS  + £ Jo  [N]  odV  (3.28) 

m m 

t{F}  = xJtv\[BL]Tt[x]tdV  (3.29) 

m 


The  required  matrices  for  the  updated  Lagrangian  formulation  can  be  found  in  Bathe  [4], 
If  the  Newton-Raphson  method  is  used,  Equation  3.24  can  be  written  as 

t[K](')  {dU}(')  = t+At{Q}  - t+At{F}(i-1)  (3.30) 

where  { dU}(')  is  the  vector  of  increments  in  the  nodal  point  displacement  in  iteration  i 
and 


t+At{u}(i)  = t+At{u}(i-1)  + (du}(i) 


(3.31) 
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Updated  Laarangian  Jaumann  Stress  Rate  Formulation 


In  geometric  nonlinear  analysis,  before  performing  a new  iteration  within  an 
increment,  the  Cauchy  stresses  in  the  updated  configuration  must  be  determined.  The 
Cauchy  stresses  in  the  updated  configuration  cannot  be  obtained  by  simply  adding  to  the 
Cauchy  stresses  in  the  previous  configuration  a stress  increment  which  is  due  only  to 
the  straining  of  the  material;  that  is,  the  calculation  of  the  Cauchy  stresses  in  the 
updated  configuration  must  also  take  into  account  the  rigid  body  rotation  of  the  material, 
because  the  components  of  the  Cauchy  stress  tensor  also  change  when  the  material  is  only 
subjected  to  a rigid  body  rotation.  Use  is  made  of  the  Jaumann's  stress-rate  tensor,  x^y, 

which  is  defined  as 


where  is  a Cartesian  component  of  the  time  derivative  of  the  Cauchy  stress  tensor 
evaluated  at  time  t,  and  toy  is  a Cartesian  component  of  the  spin  tensor, 


Physically,  the  spin  tensor  represents  the  angular  velocity  of  the  material. 

To  obtain  a physical  understanding  of  the  above  tensors  in  the  time-independent 
incremental  analysis,  consider  the  motion  from  t to  time  t+At.  If  the  increment  is 
infinitesimally  small,  then 


My  = H y - lx jptopj  - 'ijptopi 


(3.32) 


(3.33) 


(3.34) 
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From  Equations  3.32  and  3.33  and  relations  in  Equation  3.34,  it  can  be  shown  that  the 
Cauchy  stresses  at  subsequent  state  in  a 2-D  formulation  can  be  expressed  as 

t+AtXl1  =tXl1  +TJn  +2tTi2W 


t+A,Xl  2 = Hi  2 + TJ1 2 + (^1 1 -tX22)w 


t+AtX22  = tx22  + XJ22  + 2lX-|2w 


(3.35) 


t+AtX33  = ^33  + XJ33 


where 

1 9u2  9ui  , 
w ■ 2 (atXl  ■ 


(3.36) 


In  deriving  the  governing  incremental  continuum  mechanics  equations,  the 
principle  of  virtual  work  used  is  independent  of  the  material  law.  For  use  with  the 
rate-type  incremental  plasticity,  Equation  3.10  can  be  written  as 


Jtv  tCEPijrs  teij  8ters  *dV  + Jty  Hy  6tn jj  <dV  = ^A<W  - 

Jtv  kjj  8teij  kJV  (3.37) 


where  tCEPjjrs  ‘s  instantaneous  constitutive  relation  at  time  t.  The  constitutive 
relation  will  be  discussed  in  Chapter  4.  The  above  equation  is  used  to  calculate  the 
incremental  displacements.  The  incremental  stresses  or  Jaumann  stress  (rate)  can  be 
found  from  Equation  3.12  as 
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Hy  = C^^jjrs  ters  (3.38) 

and  the  Cauchy  stresses  at  the  subsequent  configuration  at  time  t+At  can  be  found  from 
the  relation  in  Equation  3.21  as 

t+At^ij  = tXj.  + txJjj  +t-TiptWpj  + Hjp'wpj  (3.39) 

where  wpj  is  the  spin  tensor  in  the  time-independent  problem  with  infinitesimal 
increments. 


Limitations  of  Jaumann  Stress-Rate  Tensor 
In  this  chapter,  the  updated  Lagrangian  formulation  of  the  finite  element  method 
is  presented.  The  method  uses  the  Jaumann  stress-rate  tensor  to  update  the  Cauchy 
stresses  for  each  iteration.  While  the  Jaumann  stress-rate  tensor  is  usually  used  in  the 
updated  Lagrangian  formulation,  recent  research  shows  that  it  is  not  applicable  to 
materials  exhibiting  kinematic  hardening. 

The  use  of  the  Jaumann  stress-rate  tensor  in  the  stress  analysis  at  the  finite 
deformation  of  materials  exhibiting  kinematic  hardening  incorporates  rotational  effects 
[20].  This  results  in  oscillatory  shear  stress  for  monotonically  increasing  simple 
shear  strain  [60].  Taylor  and  Becker  [90]  specifically  refer  to  the  findings  of  Lee  et  al. 
and  suggest  that  careful  consideration  must  be  given  to  the  choice  of  stress  rate  for  the 
case  of  kinematic  or  combined  hardening.  They,  too,  conclude  that  the  Jaumann  stress 
rate  is  inappropriate  for  this  case.  Corotational  rates  for  kinematic  hardening  at  large 
plastic  deformations  are  suggested  by  Dafalias  [20].  Lee  et  al.  [60]  proposed  a modified 
Jaumann  derivative  based  on  the  spin  of  the  specific  material  directions  associated  with 
the  kinematic  hardening. 
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Kiousis  et  al.  [55]  have  proposed  to  use  a total  Lagrangian  formulation  in  which 
the  rotational  effects  introduced  by  the  Jaumann  stress-rate  tensor  can  be  eliminated  in 
the  case  of  materials  that  exhibit  kinematic  hardening  behavior.  This  requires  that  the 
constitutive  equations  used  be  expressed  in  terms  of  the  2nd  Piola-Kirchhoff  stresses. 
However,  the  available  constitutive  equations  are  defined  with  respect  to  the  deforming 
material.  In  other  words,  they  are  expressed  in  term  of  the  true  stresses,  the  Cauchy 
stresses. 

Due  to  the  above  discussion,  in  this  study,  only  the  isotropic  models  will  be 
considered. 


CHAPTER  4 


CONSTITUTIVE  LAWS 

A constitutive  law  represents  a mathematical  model  that  simulates  the  physical 
stress-strain  behavior  of  a material.  The  success  of  the  application  of  any  numerical 
method  such  as  the  finite  element,  finite  difference,  and  boundary  element  methods  in 
structural  and  geotechnical  engineering  is  not  only  dependent  upon  the  accuracy  of  the 
methods,  but  also  upon  how  well  and  realistically  the  behavior  of  the  material  is 
simulated  under  multiaxial  stresses. 

The  extreme  difficulty  in  obtaining  an  exact  solution  even  with  the  aid  of  digital 
computers  is  mainly  due  to  the  fact  that  the  nonlinear  stress-strain  .relationship  in  soil 
is  far  more  complicated  than  the  Hooke's  law  for  linearly  elastic  materials. 

Generally,  the  various  models  for  defining  the  constitutive  behavior  of  soils  can 
be  divided  in  three  main  groups  [23]:  (1)  representation  of  given  stress-strain  curves 
using  curve-fitting  methods,  interpolation,  or  mathematical  functions;  (2)  nonlinear 
elasticity  theories;  and  (3)  plasticity  theories.  In  this  chapter  the  models  that  are  used 
in  this  research  are  described. 


Linear  Elastic  Model 

For  an  elastic  material,  the  state  of  stress  is  a function  of  the  current  state  of 
deformation  only.  An  elastic  medium  returns  to  its  initial  state  after  a cycle  of  loading 
and  unloading.  An  elastic  material  in  general  can  be  nonlinear.  A special  case  is  that  of 
linear  elastic  behavior.  The  linear  elastic  Hooke's  law  is  the  simplest  example  of  a 
constitutive  model. 

A generalized  Hooke's  law  presented  by  Cauchy  has  the  form 
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o-jj  = Cjjkl  £kl 


(4.1) 


where  ay  is  the  stress  tensor,  Eki  is  the  strain  tensor  and  Cjjkl  is  the  tensor  of  elastic 
constants  of  the  material.  The  specialization  of  Equation  4.1  for  an  isotropic  material 
takes  the  form  of  [65] 


an  = 


1 +d 


■Eij  + 


PE 

(1  + d)(1  -2d  ) 


EkkSjj 


(4.2) 


where  E is  Young's  modulus,  d is  Poisson's  ratio  and  8jj  is  the  Kronecker  delta.  Equation 
4.2  can  be  expressed  in  matrix  form 


{a}  = [C]{£] 


(4.3) 


where 

{a}T  = [an  . ct22>  a33,  a-j 2>  <*23.  <*131 
[e}T  = [Ei  1 , £22-  £33.  £12.  £23-  £l 3] 


(4.4) 

(4.5) 


[C] 


E 

(1  +D)(1  -2D) 


1-D  D D 0 0 0 

D 1-D  D 0 0 0 

D D 1-D  0 0 0 

1 -2D 

0 0 0 — — 0 0 

1 -2d 

oooo  — — 0 

1 - 2d 


(4.6) 
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In  the  cases  of  plane  stress,  plane  strain  and  axisymmetric  idealizations, 
Equation  4.3  can  be  simplified  as 
Plane  Stress 


1 d 0 

r -] 

"oTT 

El  1 

E 

d 1 0 

022 

£22 

-<*12- 

1 -D2 

1 -d 
0 0 2 

_£12_ 

Plane  Strain 
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rani 
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-012- 
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1 -2d 

L 0 0 2 j 
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Axisymmetric 
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£z z 

LarzJ 
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Variable  Moduli  Model 

The  variable  moduli  model  is  basically  an  extension  of  the  linear  elastic  model. 
The  variable  moduli  are  considered  to  be  stress-dependent.  The  basic  idea  in  the  model 
is  that  the  (incremental)  constitutive  relations  are  formulated  directly  based  on  the 
linear  elastic  form  by  simply  replacing  the  constant  moduli  E and  d with  variable 
tangential  moduli  Et  and  vt.  The  incremental  stress-strain  relations  are  written  as 
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Et  DtEt 

day  = dey  + — — “ — “dekk5jj 

1+Ut  (1 +'Ut)(1 -2Dt) 


(4.10) 


Different  versions  of  the  variable  moduli  models  have  been  proposed.  The  one  by 
Duncan  et  al.  [34,  35]  is  used  in  this  study. 

Following  the  suggestion  of  Kondner  [56],  the  nonlinear  stress-strain  behavior 
for  both  clay  and  sand  may  be  approximated  by  a hyperbolic  curve  (Figure  4-1).  By 
using  the  hyperbolic  relationship  and  the  Mohr-Coloumb  failure  criterion,  the  tangent 
Young’s  modulus  is  given  as 


Et  = [1 


R f ( 1 -sin0)(ai  -03) 

2c  coso  + 2<73Sin0  ^ 'pa 


(4.11) 


where 

Rf  = failure  ratio 

at  = major  principal  stress 

03  = minor  principal  stress 

0 = internal  angle  of  friction 

c = cohesion 

K = dimensionless  constant 
n = dimensionless  constant 
pa  = atmospheric  pressure 

Values  of  the  five  parameters,  Rf,  0,  c,  K and  n,  in  Equation  4.11  can  be  readily  obtained 
from  conventional  triaxial  tests. 

A similar  relation  based  on  the  hyperbolic  concept  was  proposed  by  Kulhawy  et 
al.  [57]  for  tangent  Poisson's  ratio.  However,  as  an  alternative  to  Ef  and  'Ut,  Duncan  et 


Axial  strain  e 

Stress  difference  '01-03  Stress  difference,  01-03 
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Figure  4-1  Hyperbolic  representation  of  a stress-strain  curve;  (a)  Hyperbolic 
stress-strain  curve;  (b)  Transformed  stress-strain  curve 
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al.  [34]  have  proposed  that  hyperbolic  models  expressed  in  terms  of  Et  and  tangent  bulk 
modulus  Kt  can  be  more  conveniently  utilized  for  a better  representation  of  soil 
behavior  near  and  after  failure.  Equation  4.10  can  easily  be  expressed  in  terms  of  Et  and 
Kt  by  substituting  for  t>t  using  the  relation 


i>t 


3 K t - Et 
6Kt 


(4.12) 


The  expression  of  Kt  is  given  as  a function  of  the  confining  pressure: 

Kt  = kbPa(^-)m  (4.13) 

Pa 

in  which  both  kb  and  m are  dimensionless  material  constants,  and  pa  is  the  atmospheric 
pressure.  Values  of  parameters  kb  and  m may  also  be  obtained  from  the  conventional 
triaxial  tests.  Representative  values  of  these  constants  for  a variety  of  soils  may  be 
found  in  Duncan  et  al.  [34]. 


Plasticity  Models 

Most  geologic  media  do  not  exhibit  linear  elastic  behavior.  Although  nonlinear 
elastic  constitutive  relations  have  been  applied  to  soils  successfully,  the  main  physical 
feature  leading  to  a soil's  nonlinear  behavior  is  irrecoverability  of  strain.  The  theory  of 
plasticity  deals  with  such  phenomenon  and  is  a broad  subject.  Here  a brief  review  of 
some  of  the  basic  theories  in  plasticity  is  given,  and  then  three  plasticity  models  which 
are  used  in  this  study  are  explained. 
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Theory  of  Plasticity 

There  are  two  major  theories  in  plasticity,  the  deformation  theory  and  the 
incremental  or  flow  theory  [50,  94],  The  deformation  theory  is  based  on  the 
assumption  that  there  are  unique  constitutive  relations  between  the  total  strain  and 
current  state  of  stress  and  these  relations  are  independent  of  the  stress  path.  In  the  flow 
theory,  relations  are  expressed  in  terms  of  stress  and  strain  increments.  The 
incremental  stress-strain  relations  are  affected  by  the  stress  path.  Since  the  behavior 
of  nonlinear  materials  is  generally  dependent  on  the  stress  path,  the  flow  theory  has 
been  widely  used. 

Three  properties  in  addition  to  the  elastic  stress-strain  relations  are  needed  to 
describe  the  incremental  stress-strain  relationship  of  an  elastic-plastic  material  based 
on  the  flow  theory  of  plasticity: 

1.  a yield  condition,  which  specifies  the  state  of  stress  corresponding  to  the  start 
of  plastic  behavior; 

2.  a flow  rule,  which  relates  the  irrecoverable  plastic  strain  increment  to  the 
stress  state  in  the  material; 

3.  a hardening  rule,  which  defines  how  the  yield  condition  is  modified  during 
plastic  deformation. 

These  properties  are  adequately  explained  in  the  literature  on  the  subject  [10, 
11,  13,  32,  50,  67,  97].  However,  a brief  description  is  given. 

Yield  Surface 

If  uniaxial  behavior  of  a material  is  considered,  the  yield  stress  is  defined  as  a 
stress  point  (yield  point)  below  which  the  deformations  are  elastic  and  fully 
recoverable.  For  multiaxial  behavior,  the  state  of  stress  at  a point  is  represented  by  the 
nine  components  of  the  stress  tensor  ay,  and  the  yield  stress  becomes  a hypersurface  in 

a nine  dimensional  space  of  stress. 
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Considering  isotropic  hardening,  the  yield  condition  (surface)  can  be  written  as 


where  k is  a state  variable  which  depends  on  the  plastic  strain  ePy.  This  yield  condition 
can  be  visualized  as  a surface  in  9-dimensional  space  of  stress  with  the  position  of  the 
surface  dependent  on  the  instantaneous  value  of  the  parameter  k.  The  stress  state  where 
F = 0 implies  a plastic  state  of  stress,  F < 0 implies  an  elastic  state  and  F > 0 has  no 
meaning. 

On  physical  grounds,  one  can  notice  that  the  yield  condition  should  be  independent 
of  the  orientation  of  the  coordinate  system  employed.  In  general,  assuming  isotropy,  the 
yield  surface  is  expressed  in  terms  of  the  three  stress  invariants  or  the  deviatoric 
stress  invariants. 


When  the  plastic  deformation  occurs,  the  material  flows  under  continuing 
application  of  stress.  The  flow  rule  is  analogous  to  the  relation  between  the  flow  of  fluids 
and  a potential  function  where  the  normals  at  any  point  are  proportional  to  the  velocity 
components  at  that  point.  When  materials  are  stressed  beyond  the  yield  surface,  the 
material  flows  with  incremental  plastic  strains  normal  to  a potential  function  at  a point. 
Thus,  a potential  function  G is  required  to  calculate  the  plastic  strain  increments 


F(ojj.k)  = 0 


(4.14) 


Flow  Rule 


(4.15) 


where  r is  a scalar  factor  which  controls  the  magnitude  of  the  generated  plastic  strain 
increment  and,  like  the  yield  function  F,  G is  a scalar  function  of  stress.  When  F = G,  the 
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flow  rule  is  called  associated,  and  if  F ^ G,  it  is  termed  non-associated.  The  potential 
function  is  found  experimentally  for  a material. 

Hardening  Rule 

The  purpose  of  postulating  a hardening  rule  is  to  reflect  as  closely  as  possible  the 
history  of  the  deformation.  The  yield  surface  may  grow  or  undergo  a rigid  body  motion 
during  the  plastic  deformation.  This  phenomenon  is  due  to  the  hardening.  When  the  yield 
surface  expands  uniformly  in  all  directions  without  any  translation,  it  is  called 
isotropic  hardening.  If  the  yield  surface  translates  without  any  change  in  its  shape  and 
size,  it  is  called  kinematic  hardening.  The  combination  of  isotropic  hardening  and 
kinematic  hardening  is  called  anisotropic  hardening.  In  this  study,  the  isotropic 
hardening  is  considered. 

During  plastic  deformation,  an  increment  of  stress  may  cause  a differential 
change  in  position  of  the  yield  surface,  which  can  be  expressed  for  isotropic  hardening  in 
the  form: 


dP-^jddi  + fdk.O 


(4.16) 


This  expression  is  commonly  known  as  the  consistency  condition.  Since  the  hardening 
parameter  k for  isotropic  hardening  is  a function  of  plastic  strain,  the  above  equation 
can  be  written  as 

,_  3F  3F  3k 

dF  = t — dan  + dePji  = 0 

3ay  « 3k  aep..  'J 


(4.17) 
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Incremental  Stress-Strain  Relations 

In  this  section,  incremental  relations  between  stresses  and  strains  for  the 
isotropic  hardening  material  are  derived.  The  total  strain  increments  have  been 
assumed  to  be  the  sum  of  the  elastic  and  plastic  strain  increments.  That  is 


dEjj  = d£ey  + dePjj 

(4.18) 

or  deejj  = d£y  -d£Pjj 

(4.19) 

Using  the  generalized  Hooke's  law,  the  stress  increments  can  be  computed  as 


dcrjj  = Cjjki  (d£ki  - d£Pki) 

(4.20) 

where  Cjjki  is  the  elastic  constitutive  tensor. 
Substitution  of  Equation  4.15  in  Equation  4.20  gives 

3G 

day  = Cjjki  (d£k|  - r 3ak|  ) 

(4.21) 

Substitution  of  Equations  4.21,  4.15  in  Equation  4.17  leads  to 

3F  ^ . 3F  , 3F  3k  3G  „ 

3ay  C|ikl  £kl  ' r 3ak|  + 3k  0ePy  r 3ay 

(4.22) 

Solution  of  Equation  4.22  for  r gives 

3F  . . 

8cr,f  0|ikl  d£kl 

r “ 3f  3F  3 F 3k  3G 

3omn  mnuv  0ctuv  3k  0ePmn  3amn 

(4.23) 
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By  using  Equations  4.21  and  4.23,  the  incremental  relations  between  stress  and  strain 
can  be  written  as 


day  = CePjjrs  ders 


(4.24) 


where 


CePijrs  = Cjjrs 


Cijkl 


9F  3G 
9crki  9<Jmn 


'mnrs 


3F 


3F  3 F 9k 


3ai 


mn 


'mnuv 


3cr 


uv 


9G 


(4.25) 


3k  9ePmn  3a 


mn 


If  the  flow  rule  is  associated,  the  above  equation  can  be  written  as 


3F  3F 


C e Pjjrs  = Cjjrs 


C 'ikl  3ok|  3omn 


'mnrs 


9F 


9<Ti 


mn 


-mnuv 


3F 

3cti 


uv 


3 F_  3k  3F 
3k  3ePmn  3a, 


mn 


(4.26) 


Normally  the  elastic-plastic  constitutive  relation  is  expressed  in  matrix  form  in 
the  finite  element  analysis.  If  the  flow  rule  is  associated,  the  constitutive  matrix  is 
symmetric.  The  incremental  stress-strain  matrices  for  the  constitutive  models  used  in 
this  study  are  presented  next. 


Mohr-Coulomb  Model 

According  to  the  Mohr-Coulomb  criterion,  the  shear  strength  increases  with 
increasing  normal  stress  on  the  failure  plane: 


x = c + cjtano 


(4.27) 
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where  x is  the  shear  stress  on  the  failure  plane,  c the  cohesion  of  the  material,  a the 
normal  effective  stress  on  the  failure  plane,  and  0 the  angle  of  internal  friction.  This 
failure  criterion  is  shown  graphically  in  Figure  4-2. 

The  concept  of  Mohr  circle  can  be  used  to  express  the  Mohr-Coulomb  criterion  in 
term  of  principal  stresses.  Thus,  the  definition  of  the  equation  of  the  Mohr-Coulomb 
surface  can  be  written  as 

_ <71  +<73  (7 1 -<73 

F= — sino  - — c coso  = 0 (4.28) 


where  cti  and  <73  are  the  major  and  minor  principal  stresses,  respectively.  As  can  be 
seen  in  Equation  4.28,  the  Mohr-Coulomb  criterion  ignores  the  effects  of  intermediate 
principal  stress.  Equation  4.28,  when  written  in  terms  of  invariants  [88],  becomes 


^ 1 , . rr—.  sinesino  , 

F = — 1 1 sino  + V J2  (coso  - — — ) - c cos0  = 0 


(4.29) 


where  li  is  the  first  stress  invariant,  J2  is  the  second  deviatoric  stress  invariant  and  0 
is  the  Lode  angle  which  is  defined  in  terms  of  the  second  and  third  deviatoric  stress 
invariants  as 


0 = - 


arc  sin(- 


3VT  J3 
2 j23/2  > 


(4.30) 


and  -rc/6  < 9 < 71/6 

The  elastic-plastic  constitutive  matrix  is  obtained  from  Equations  4.29,  4.30 
and  4.26  by  proper  mathematical  manipulation.  This  is  shown  in  Appendix  A.  The  two 
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Figure  4-2  Mohr-Coulomb  criterion 
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parameters  associated  with  the  Mohr-Coulomb  failure  surface,  angle  of  internal  friction 
0 and  cohesion  c,  can  be  determined  from  conventional  triaxial  tests. 

Drucker-Praaer  Model 

A generalization  to  account  for  the  effects  of  all  principal  stresses  was  suggested 
by  Drucker  and  Prager  [33]  by  using  the  invariants  of  the  stress  tensor.  The  Drucker- 
Prager  model  consists  of  a single  failure  surface  at  which  plastic  flow  occurs.  The 
function  for  the  failure  surface  is 

F = VJ^T  + ah  - k = 0 (4.31 ) 


where  h = first  invariant  of  the  stress  tensor 

J2  = second  invariant  of  the  deviatoric  stress  tensor 
a,  k = material  constants 

For  the  plane  strain  condition,  parameters  a and  k can  be  expressed  in  terms  of  the  angle 
of  internal  friction  0 and  the  cohesion  c [11,  12,  23]: 


V 9 + 1 2tan20 


k = 


3c 

V9  + 1 2tan2o 


(4.31b) 


Figure  4-3  shows  the  failure  surface  in  terms  of  the  stress  invariants  li  and  J2. 
Figure  4-4  illustrates  the  failure  surface  in  principal  stress  space.  This  model  has 
been  found  to  predict  a larger  volumetric  strain  than  is  observed  in  the  laboratory. 

For  Drucker-Prager  plasticity  the  constitutive  matrix  can  be  derived  explicitly 
[23,  28].  Only  the  expression  for  the  plane  strain  condition  is  given  here. 
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where  Tn  = A + Cann  and  Rn  = Acrnn  + B;  n = 1 ,2,3.  Here  a repeated  subscript  does  not 
mean  summation.  A,  B and  C are  defined  as 
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where  K = bulk  modulus 


E = Young's  modulus 


v = Poisson's  ratio 


G = shear  modulus 


f = V J 2 -ah  *k  =0 


Figure  4-3  Drucker-Prager  failure  surface  h 


Figure  4-4  Drucker-Prager  Failure  surface  in  3-D  stress  space 
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Cap  Model 

Cap  models  were  proposed  to  overcome  some  of  the  deficiencies  of  the  Drucker- 
Prager  model.  Instead  of  a single  failure  surface  as  for  the  Drucker-Prager  model,  the 
Cap  model  has  a failure  surface  and  an  additional  strain-hardening  yield  surface.  This 
additional  yield  surface  is  usually  referred  to  as  the  cap. 

The  cap  changes  as  plastic  deformation  takes  places.  It  functions  to  allow  plastic 
flow  for  loading  paths  which  do  not  approach  the  material's  failure  surface.  Since  most 
geologic  materials  exhibit  plastic  deformation  long  before  failure,  the  cap  model 
generally  proves  to  be  a more  accurate  model  than  the  Drucker-Prager  model.  Also,  the 
cap  prevents  the  model  from  predicting  excessive  dilation  at  failure. 

The  model  chosen  for  this  research  was  developed  by  Sandler  and  Rubin  [80]. 
The  function  of  the  failure  surface  [89],  which  is  an  extension  of  the  Ducker-Prager 
failure  surface,  is  given  by 

Ff(h,  VJi)  = A - Gh  - CeBh  -V^F=  0 (4.38) 

where  A,  B,  C and  9 are  material  parameters. 

The  function  for  the  cap  is  chosen  to  be  an  elliptically  shaped  function.  Sandler 
and  Rubin  give  the  following  elliptical  form 

Fc(ll.VJ2>)  - ^ {[X(k)-L(k)]2  - [Jl-L(k)]2}1  /2  WjT=  0 (4.39) 

in  which  R is  the  ratio  of  the  major  to  the  minor  axis  of  the  elliptic  cap;  X and  L are 
functions  of  k defined  below. 


X(k)  = k - R Ff(k) 


(4.40a) 
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Figure  4-5  Cap  model 


if  k < 0 
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L(k)  = k 


(4.40b) 


L(k)  = 0 if  k > 0 


(4.40c) 


The  hardening  parameter,  k,  is  related  to  the  plastic  volumetric  strain  by  the 
following  equations. 


where  W and  D are  material  parameters. 

The  model  required  the  evaluation  of  nine  parameters  from  various  laboratory 
tests.  Two  of  the  parameters  are  the  linear  elastic  constants,  Young's  modulus  and 
Poisson's  ratio.  For  stress  states  not  on  the  cap  or  failure  surface,  the  material  is 
assumed  to  follow  the  generalized  Hooke’s  law.  Figure  4-5  illustrates  the  Cap  model. 

The  elastic-plastic  constitutive  matrix  is  obtained  from  Equations  4.38,  4.39, 
4.40,  4.41  and  4.26  by  proper  mathematical  manipulation.  This  is  shown  in  Appendix 


Interface  elements  are  used  to  model  the  interaction  between  dissimilar 
materials.  A number  of  interface  elements  have  been  proposed  and  applied  with  some 
success  [40,  42,  43,  48].  The  interface  element  used  for  this  study  has  been  under 
development  for  the  past  several  years  [62,  81].  The  basic  proposals  behind  the 
interface  element  are  as  follows: 

1.  The  same  element  formulation  as  for  a solid  element  is  used. 

2.  An  arbitrary  "small"  thickness  of  the  interface  is  chosen,  the  limiting  factor 
being  the  numerical  stability  of  the  resulting  element  equations. 

3.  The  interface  behavior  is  modeled  through  the  use  of  a modified  constitutive 


k = ePkk  = W (exp[DX(k)  - 1]} 


(4.41) 


II 


Interface  Elements 
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law. 

4.  A minimum  of  three  independent  parameters  are  required  for  the  constitutive 
model. 

The  main  advantages  of  the  element  are  its  compatibility  with  solid  elements,  and 
its  simplicity  compared  to  other  types  of  interface  elements.  The  constitutive  matrix  is 
the  heart  of  the  interface  element.  Two  interface  models  used  in  this  study  are  described 
below. 


Linear  Elastic  interface  Model 

The  linear  elastic  model  under  plane  strain  conditions  is  defined  as 


[C]  = 


1-\)2  -D  ( 1 +\>)  -D(1+D)” 

E E 0 E 

-,l)(1+D)  1-V2  -U  ( 1 + 1) ) 

E E 0 E 

0 0^0 

-0)(1  +V)  -D(1  +D)  1 -\) 2 

E E 0 — J 


(4.42) 


where  E = Young's  modulus 

X)  = Poisson's  ratio 

G = shear  modulus 

The  two  parameters  E and  u are  generally  taken  to  be  the  same  as  for  one  of  the 
solid  elements  it  adjoins.  The  shear  modulus  G can  be  determined  from  direct  shear  tests. 

Equation  4.42  indicates  that  the  shear  behavior  is  independent  of  the  normal 
stresses.  Since  most  observed  interface  shear  behavior  is  highly  dependent  upon  the 
normal  stress,  this  model  is  limited.  The  following  model  considers  the  shear  modulus  is 
a function  of  the  normal  stress. 
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Hyperbolic  Interface  Model 

A model  which  allows  better  prediction  of  the  interface  behavior  is  a modification 
of  the  hyperbolic  model  used  for  solid  elements.  The  shear  modulus  [17,  18]  is  given  by 

G = (K7w(^)n(1  - ~^tgYn0)2  ifcrn  compressive  (4.43a) 

G = 0 otherwise  (4.43b) 


where  K = proportionality  constant 
Yw=  unit  weight  of  water 
an=  stress  normal  to  the  interface 
pa=  atmospheric  pressure 
Rf=  failure  ratio 
ctx y=  shear  stress 
c = adhesion  of  the  interface 
0 = friction  angle  of  the  interface 
n = dimensionless  constant 


All  of  the  parameters  may  be  obtained  from  direct  shear  tests. 


CHAPTER  5 


SIMULATION  OF  CONSTRUCTION  SEQUENCES 

In  this  chapter,  the  construction  sequences  to  be  dealt  with  in  this  study  are 
examined  and  the  loading  vector  corresponding  to  the  simulation  of  each  sequence  in  the 
finite  element  solution  is  presented.  The  loading  vectors  can  be  formulated  for  bodies 
subjected  to  small  as  well  as  large  deformations.  The  formulation  of  loading  vector,  if 
not  specified,  is  in  updated  coordinates  for  problems  with  large  strain  and  large 
deformations. 


Insitu  Stresses 

Before  the  construction  starts,  the  mass  of  the  region  is  subjected  to  insitu 
stresses.  A knowledge  of  the  insitu  stresses  is  a prerequisite  in  simulating  construction 
sequences.  Most  natural  deposits  have  undergone  a complex  stress  history  of  loading, 
unloading  or  even  chemical  reaction  which  makes  it  extremely  difficult  to  predict  the 
insitu  stresses.  To  measure  the  complete  insitu  stresses  may  often  turn  out  to  be  a 
difficult,  confusing,  and  expensive  task. 

One  of  the  most  common  methods  for  predicting  the  insitu  stresses  is  that  the 
lateral  (horizontal)  effective  stress  depending  on  the  geological  history  is  related  to  the 
effective  vertical  stress  created  by  the  gravity  of  the  overburden  through  a factor  K0 
called  the  coefficient  of  lateral  earth  pressure  [8j.  The  values  of  K0  can  be  obtained 
from  field  or  laboratory  experiments.  Mayne  and  Kulhawy  [66]  proposed  a simple 
empirical  formulation  to  predict  approximate  values  of  K0  after  reviewing  laboratory 
data  from  over  170  different  soils. 
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The  method  chosen  here  was  to  do  a cycle  of  finite  element  analysis  to  compute  the 
insitu  stresses  from  applied  loads  due  to  the  unit  weight  of  the  region.  The  applied  load 
can  be  computed  as 

{Q}  = s/v  [N](m)T  {y}(m)  dV  (5.1) 

m 

where  [N]  is  the  displacement  interpolation  matrix  and  {y}(m)  is  the  unit  weight  of  soil 
for  element  m.  In  the  case  with  water  in  soil,  the  Buoyant  unit  weight  should  be  used. 
The  proper  lateral  stresses,  which  are  equal  to  K0  times  effective  vertical  stresses,  are 
obtained  by  choosing  the  value  of  Poisson's  ratio  according  to  the  following  equation: 

0)  - K0  / (1+Kq)  (5.2) 

Because  the  equation  is  based  on  linear  elasticity,  the  computation  of  the  insitu  stresses 
is  performed  with  a linear  constitutive  law  for  all  materials.  All  displacements  are  set 
to  zero  after  obtaining  the  insitu  stresses  since  the  desired  quantities  are  the  stresses. 

Dewatering 

Dewatering  is  modeled  in  a rather  simple  manner.  It  is  assumed  that  the 
groundwater  levels  before  and  after  pumping  are  horizontal.  In  this  case,  the  change  in 
the  state  of  stress  caused  by  dewatering  can  be  included  in  the  finite  element  analysis  as 
an  equivalent  load  that  modifies  the  unit  weight  in  the  soil.  Such  an  equivalent  load  can 
be  computed  as 


{Q}  = lJv  [N](m)T  (yw}(m)  dv 

m 


(5.3) 
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where  {Yw}(m)  is  the  added  apparent  unit  weight  for  element  m in  the  dewatered  region. 
The  added  weight  occurs  due  to  the  loss  of  the  Buoyant  force  of  water  on  the  region.  For 
nonlinear  problem,  the  dewatered  region  may  be  subdivided  into  more  horizontal  layers 
and  solutions  for  each  dewatering  step  found. 

If  dewatering  is  done  in  slow  draining  media  such  as  clay  soils,  the  groundwater 
level  between  wells  will  not  be  horizontal.  A method  which  incorporates  consolidation 
would  be  desirable  for  accurate  results  [73]. 

Excavation 

Most  available  procedures  for  simulating  excavation  are  based  on  the  procedure 
originally  proposed  by  Goodman  and  Brown  [41].  In  this  procedure,  the  insitu  stresses 
are  first  determined.  Excavation  is  simulated  in  a number  of  increments.  As  shown  in 
Figure  5-1,  the  excavation  surface  is  considered  to  be  a stress-free  surface.  This 
condition  is  satisfied  by  applying  equivalent  nodal  forces  which  are  equal  but  opposite  in 
direction  to  the  existing  stresses  along  the  surface  at  a given  increment  of  excavation. 
The  displacements  and  stresses  are  then  calculated  and  added  to  the  values  of  the  previous 
step. 

Two  methods  have  been  used  to  formulate  the  equivalent  nodal  forces.  The  first 
one  involves  using  the  stresses  computed  at  the  nodal  points  directly  in  computing  the 
equivalent  nodal  forces.  The  stresses  are  usually  evaluated  at  internal  points  inside  an 
element  first,  and  then,  through  an  interpolation  function,  they  are  extrapolated  to  the 
nodal  points.  After  the  stresses  at  the  nodal  points  are  established,  the  equivalent  nodal 
forces  are  obtained  from  equilibrium  considerations. 

It  has  long  been  recognized  that  there  are  difficulties  in  evaluating  accurately  the 
stresses  along  the  excavation  surface  by  using  the  above  method.  Christian  and  Wong 
[14]  pointed  out  that  excavation  simulation  in  linearly  elastic  material  is  independent  of 
the  number  of  increments  used  for  the  excavation  process,  but  for  the  finite  elements 
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Figure  5-1  Simulation  of  excavation 
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they  used,  this  criterion  did  not  hold  good.  In  other  words,  the  problem  can  be  dependent 
on  the  number  of  excavation  increments.  This  error  can  become  worse  when  one  tries  to 
simulate  excavation  in  nonlinear  materials  because  nonlinear  problems  are  usually 
solved  in  a number  of  increments  and  the  errors  may  be  cumulative.  Christian  and  Wong 
indicated  that  the  errors  may  be  caused  by  the  factor  that  the  lower-order  linear 
triangular  and  four-noded  quadrilateral  elements  are  inadequate  to  model  the  stress 
gradients  near  the  corner  of  the  excavation.  Although  quadratic  isoparametric  elements 
can  improve  the  results  compared  with  using  the  lower-order  elements  in  the  same 
mesh,  Huang  [52]  noted  that  gradients  at  the  corner  of  an  excavation  are  so  steep  that  a 
relatively  coarse  mesh  does  not  model  them  well. 

The  second  method  makes  use  of  overall  equilibrium  to  compute  the  equivalent 
nodal  forces.  In  this  method,  the  stresses  are  usually  evaluated  at  Gauss  points  inside  an 
element  first,  and  then,  instead  of  computing  the  nodal  stresses,  the  equivalent  nodal 
forces  due  to  the  stresses  at  Gauss  points  are  calculated.  An  evaluation  of  the  equivalent 
nodal  forces  can  be  accomplished  by  considering  the  equilibrium  of  the  excavated  body. 

Mana  [64]  used  eight-noded  isoparametric  elements  in  simulation  of  excavation, 
where  the  above  method  was  utilized  for  computing  the  equivalent  nodal  forces  for 
creating  the  stress-free  surface.  He  simulated  excavation  in  linear  elastic  material  by 
using  one  step  and  then  three  steps,  showing  that  the  obtained  results  from  both 
simulations  were  identical.  He  analyzed  two  cases  of  braced  excavation  constructed  in 
soft  clays,  and  compared  the  prediction  with  field  observations. 

The  second  method  is  used  in  this  study  and  is  extended  to  include  the  effect  of 
large  deformations.  A more  detailed  description  of  this  method  is  given  below. 

As  shown  in  Figure  5-2,  the  excavated  area  is  treated  as  a free  body.  If  the  free 
body  is  in  equilibrium,  reactions  are  required  to  add  at  nodal  points  on  the  excavated 
surface  to  counteract  the  acting  forces.  The  reactions,  which  are  equal  to  the  equivalent 
nodal  forces  due  to  excavation,  can  be  found  by  forming  equilibrium  residuals  of  the  free 
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Figure  5-2  Equivalent  nodal  forces 
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body.  In  the  finite  element  analysis,  the  procedure  to  obtain  equilibrium  residuals 
proceeds  as  follows: 

( 1 ) Compute  the  equivalent  nodal  loads  due  to  the  stresses  at  the  integration 
points  in  the  excavated  body  by 

{F}  = I Jv  [B](m)T  {a}(m)  dV  (5.4) 

m 

where  [B](m)  is  the  strain-displacement  transformation  matrix  and 
{cr}(m)  is  the  equivalent  stress  vector  at  Gauss  points  for  element  m. 

(2)  Compute  the  equivalent  nodal  loads  due  to  the  unit  weight  of  the  excavated 
body  by 

{Q}  = Z Jv  [N](m)T{Y}(m)dV  (5.5) 

m 

For  problems  with  large  strains  and  large  displacements,  the  above 
vector  is  still  formulated  using  original  coordinates  because  the 
equivalent  nodal  loads  due  to  the  unit  weight  of  the  region  are  formulated 
using  original  coordinates. 

(3)  Compute  the  equivalent  nodal  loading  vector,  {E},  due  to  the  effect  of 
excavation  by 


{E}  = {F}  - {0} 


(5.6) 
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Embankment 

Embankment  is  the  process  of  adding  material  to  the  domain.  In  contrast  to 
excavation  simulation,  modeling  of  embankments  is  fairly  simple  and  does  not  contain 
many  of  the  problems  associated  with  excavation. 

Embankment  is  simulated  in  a number  of  sequences.  In  each  sequence,  the 
equivalent  nodal  forces  due  to  the  added  material  are  computed  by 

{F}  = l/v  [N](m)T  {y}(m)  dV  (5.7) 

m 

The  displacements,  stresses  and  strains  are  then  calculated  and  added  to  the  values  of  the 
previous  step. 


Adding  and  Deleting  Bars 

Tie  backs  and  other  reinforcement  such  as  struts,  anchors  and  braces  are  modeled 
using  one-dimensional  bar  elements,  that  transmit  only  axial  loads.  The  simulation  of 
adding  bars  to  the  domain  proceeds  as  follows: 

( 1 ) If  the  bar  is  prestressed,  place  equal  but  opposite  forces  at  the  nodal 
points  where  the  bar  is  attached  to  the  solid  elements. 

( 2 ) Compute  the  effect  due  to  the  prestressing  forces.  Increment  the  forces 
for  nonlinear  problem. 

(3)  Add  the  bar  element  stiffnesses  to  the  global  stiffness  matrix  to  account 
for  the  presence  of  the  reinforcement  in  future  sequences. 

The  simulation  of  deleting  bars  from  the  domain  proceeds  as  follows: 

( 1 ) Apply  forces  which  are  equal  but  opposite  in  the  direction  to  bar  stresses 
at  the  nodal  points  where  the  bar  is  attached  to  the  solid  elements. 


61 


(2)  Compute  the  effect  due  to  the  applied  nodal  forces.  Increment  the  forces 
for  nonlinear  problems. 

Reestablishment  of  the  Water  Table 

Raising  the  water  table  is  the  process  of  adding  water  to  the  domain.  It  is 
assumed,  as  in  dewatering,  that  the  groundwater  levels  before  and  after  the  rise  of  the 
water  table  are  horizontal.  The  simulation  of  adding  water  to  the  domain  proceeds  as 
follows: 

( 1 ) Use  Equation  5.3  to  compute  the  equivalent  nodal  forces  due  to  the 
removed  apparent  weight  of  the  region  in  which  water  is  added.  The 
removed  weight  occurs  due  to  the  presence  of  the  Buoyant  force  on 
the  region. 

( 2 ) Compute  the  displacements  and  stresses  due  to  the  forces  calculated  above. 

Concentrated  Loading 

The  simulation  of  adding  surface  loads  to  the  domain  is  achieved  by  directly 
inputting  the  concentrated  forces  to  the  specified  nodal  points.  If  the  loading  is  uniform, 
its  equivalent  nodal  forces  need  to  be  computed  first. 


CHAPTER  6 


COMPUTER  PROGRAM 

The  nature  of  the  nonlinear  finite  element  program  with  construction  sequences 
offers  several  challenging  problems  in  deriving  the  mathematical  formulations  and 
translating  them  into  a practical  computer  program.  For  example,  one  of  them  is  the  use 
of  the  tangent  stiffness  method  in  the  nonlinear  finite  element  equations.  The  other 
problem  is  to  consider  loading  and  unloading  in  the  program  when  dealing  with 
construction  sequences.  These  problems  will  be  discussed  after  a brief  description  of  the 
computer  program. 


FEMCON  --  An  Overview 

Based  on  the  present  technology  of  the  digital  computers,  it  is  reasonable  to  state 
that  many  structural  problems,  whether  linear  or  nonlinear,  can  be  solved  by  use  of  the 
finite  element  method,  with  the  only  limitations  being  the  cost  of  computations  and 
proper  modeling  of  the  nonlinear  material  behavior.  To  some  extent,  the  computational 
cost  of  a finite  element  analysis  may  be  reduced  by  more  efficient  solution  techniques  and 
effective  utilization  of  in-core  and  out-of-core  storage  for  handling  large  size  problems. 
It  is  anticipated  that  future  research  will  result  in  the  development  of  specialized 
elements  for  a particular  analysis,  improved  solution  techniques  for  solving  nonlinear 
problems,  and  new  constitutive  models  representing  the  nonlinear  behavior  of 
materials.  Therefore,  a finite  element  program  may  become  out-dated  unless  it  is 
written  in  a manner  that  can  be  easily  modified  and  updated. 

FEMCON  is  written  in  FORTRAN  77  and  should  be  easily  adaptable  to  various 
computers.  The  program  is  constructed  in  a modular  form  so  that  modifications  may  be 
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easily  implemented.  Although  it  is  originally  developed  to  study  nonlinear  soil-structure 
interaction  problems  with  or  without  construction  sequences,  it  can  be  used  or  modified 
to  solve  a wide  variety  of  solid  mechanics  problems.  The  nonlinearities  may  be  of  both 
geometric  and  material  origin.  The  program  implements  the  following  programming 
techniques  usually  found  in  general  codes: 

( 1 ) Dynamic  storage  allocation 

(2)  In-core  and  out-of-core  data  storage 

(3)  In-core  and  out-of-core  skyline  equation  solvers 

A more  detailed  description  of  Program  FEMCON  can  be  found  in  its  user's  guide  written 
by  the  author  [95].  Appendix  C contains  an  input  guide  for  the  program. 

Overall  Program  Logic 

FEMCON  consists  of  a main  program  and  three  types  of  functional  blocks.  The 
main  program  controls  the  logical  flow  of  information  through  the  various  functional 
blocks.  A functional  block  is  executed  by  reading  a data  record  containing  the  name  of  the 
block  in  the  main  program.  To  each  functional  block  there  is  a control  subroutine  named 
BLnnnn  and  an  execution  subroutine  named  EXnnnn.  Figure  6-1  shows  the  key 
operations  of  the  program.  Subroutine  BLnnnn  executes  the  following  preliminary 
operations  of  block  'nnnn': 

(a)  Reads  various  control  parameters  required  for  the  execution  of  the  program; 

(b)  Allocates  memory  to  various  arrays  using  dynamic  memory  storage 
techniques; 

(c)  Calls  subroutine  EXnnnn. 

Subroutine  EXnnnn  executes  all  the  operations  of  block  'nnnn'.  Its  execution  may 
require  that  some  utility  subroutines  be  called. 

Functional  blocks  in  FEMCON  can  be  divided  into  basic  functional  blocks,  loading 
functional  blocks  and  execution  functional  blocks.  The  basic  blocks  are  used  for  the 
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Figure  6-1  Key  operations  in  FEMCON 
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input,  verification  and  organization  of  the  data  required  to  define  a problem.  The  loading 
blocks  use  the  data  base  constructed  by  basic  blocks  to  generate  the  loading  data  required 
in  a system  of  equations  of  a problem.  The  execution  functional  blocks  assemble  and 
solve  a system  of  equations  of  a problem  using  the  data  base  constructed  by  basic  and 
loading  functional  blocks.  The  solution  to  a problem  can  be  obtained  by  properly 
managing  the  functional  blocks.  The  flow  chart  for  FEMCON  is  shown  in  Figure  6-2.  To 
solve  a problem,  the  user  needs  to  do  the  following  steps: 

Step  1:  Use  the  basic  functional  blocks  in  the  following  order: 

Block  'IMAG'  (echo  input  data,  optional) 

Block  'COOR'  (coordinates) 

Block  'COND'  (boundary  conditions) 

Block  'PREL'  (material  properties) 

Block  'ELEM'  (element  data) 

Step  2:  Choose  one  or  more  of  the  following  loading  blocks: 

Block  'CONC'  (concentrated  loads,  no  construction  sequence) 

Block  'BODY'  (body  forces,  no  construction  sequence) 

Block  'INSP  (body  forces,  construction  sequence) 

Block  'DWAT'  (equivalent  nodal  forces  due  to  dewatering) 

Block  'EXCA'  (equivalent  nodal  forces  due  to  excavation) 

Block  'EMBA'  (equivalent  nodal  forces  due  to  backfill  or  concrete 
placement) 

Block  ’BARA'  (installation  of  bar  elements) 

Block  'BARD'  (equivalent  nodal  forces  due  to  the  removal  of  bar  elements) 
Block  'LOAD'  (concentrated  loads,  construction  sequence) 

Block  'FWAT'  (equivalent  nodal  forces  due  to  the  reestablishment  of  the 
new  water  table) 


Step  3:  Choose  one  of  the  following  execution  blocks: 
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Main  Flow  Chart 


Executed  by 
Basic  Blocks 


Executed  by  one  or  more  of 
Loading  Blocks 


Executed  by  one  of  the 
Execution  Blocks 
(see  next  page) 


Figure  6-2  FEMCON  flow  chart 
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Linear  Analysis  Flow  Chart  Nonlinear  Analysis  Flow  Chart 


Figure  6-2  continued 
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Block  'LINM'  (in-core  linear  solution) 

Block  'NUN'  (in-core  nonlinear  solution) 

Block  'LIND'  (out-of-core  linear  solution) 

Block  'NLND'  (out-or-core  nonlinear  solution) 

For  problems  with  construction  sequences,  steps  2 and  3 must  be  repeated  for  each 
sequence.  FEMCON  also  has  some  optional  utility  blocks: 

Block  'COMT'  - writes  comments  in  the  output. 

Block.'PRNT'  - prints  out  the  solution  for  specified  elements. 

Solution  of  Nonlinear  Equations 

As  described  in  Chapter  2,  nonlinear  equations  can  be  solved  using  the  tangent 
stiffness  method,  the  modified  tangent  stiffness  method  or  the  constant  stiffness  method. 
But,  due  to  the  mathematical  complexities  in  deriving  the  tangent  stiffness  matrix  for 
the  plasticity  models,  the  constant  stiffness  method  is  usually  adopted  in  computer 
programs  using  elastic-plastic  soil  models  [61].  The  drawback  of  the  constant  stiffness 
method  is  that  a large  number  of  iterations  within  each  loading  increment  is  required  for 
a converged  or  accurate  solution.  It  is  observed  by  this  author  that  an  iteration  number 
of  100  or  even  more  is  usually  necessary  to  reach  the  same  allowable  tolerance  of  the 
tangent  stiffness  method.  An  attempt  was  made  to  adopt  the  tangent  stiffness  method  and 
the  tangent  stiffness  matrices  for  Mohr-Coulomb  and  Cap  plasticity  models  were  derived 
in  Appendices  A and  B respectively.  The  nonlinear  problems  solved  in  this  study  are 
generally  obtained  using  the  tangent  stiffness  method,  and  the  incremental  solutions  of 
them  can  usually  converge  in  less  than  ten  iterations  and  in  some  cases  in  three 
iterations.  It  is  possible  that  problems  that  can  not  be  solved  with  the  tangent  stiffness 
method  exist.  One  of  these  problems  is  that  a uniform  loading  is  applied  to  the  Cap  model 
material  under  conditions  of  uniaxial  strain.  This  is  shown  and  explained  in  the  next 
chapter. 
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In  FEMCON,  the  Euclidian  vector  norm  is  used  as  a convergence  test  [30]. 
Convergence  of  the  iterative  solutions  is  measured  by  comparing  the  norm  of  the 
residual  displacements  to  the  norm  of  the  total  displacements: 

V [ dUj]{  dUj} 

^ V[Ui]{Uj} 

The  iterative  process  is  terminated  when 
/T)/  < £ 

where  £ is  an  arbitrarily  selected  small  number.  The  nonlinear  solutions  were  obtained 
in  this  study  using  a tolerance  on  the  order  of  10'8. 

Loading  and  Unloading  Solution 

The  tangent  stiffness  is  the  preferred  method  to  solve  nonlinear  equations. 
However,  Tillerson,  et  al.  [92]  report  that  the  tangent  stiffness  method  has  been  widely 
used  for  geometrically  nonlinear  problems  but,  difficulties  may  arise  for  problems 
involving  material  nonlinearities  with  unloading.  Before  discussing  how  to  solve 
nonlinear  problems  with  unloading,  it  is  beneficial  to  examine  the  unloading  and 
reloading  behavior. 

Experimental  observations  of  several  investigators  (eg.,  Duncan  and  Chang, 
1970;  Holubec;  1968;  Makhlouf  and  Stewart,  1965)  [35,  51,  65]  have  indicated  that 
the  unloading  and  reloading  behavior  of  many  soils  is  nearly  linear  and  elastic  in  nature, 
and  is  independent  of  the  stress  levels  at  which  unloading  starts,  particularly  when 
unloading  occurs  at  stress  levels  not  close  to  failure.  For  example,  unloading  and 
reloading  curves  at  different  stress  levels,  A and  B,  in  Figure  6-3  have  essentially  the 
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same  slope,  which  is  nearly  the  same  as  the  slope  of  the  initial  tangent  in  primary 
loading,  (actual  behavior  of  soils  shows  a small  hysteresis  loop).  Based  on  these 
observations,  the  unloading  and  reloading  to  the  maximum  previous  stress  level  may  be 
approximated  by  an  isotropic  linear  elastic  model.  If  uniaxial  behavior  of  a material  is 
considered,  unloading  can  be  easily  visualized  from  the  1-D  stress-strain  curve  as 
shown  in  Figure  6-3.  However,  for  multiaxial  behavior,  the  theories  of  plasticity 
described  in  chapter  4 are  used.  Figure  6-4  shows  a yield  surface  with  a current  stress 
state  of  a stress  point  lying  on  a yield  surface.  An  incremental  stress  vector  dcry  is 
applied.  If  the  direction  of  dajj  is  inward  (path  OB),  then  unloading  occurs  producing 
only  elastic  strains.  If  the  direction  of  the  vector  is  outward  (path  OA),  both  plastic  and 
elastic  deformations  occur. 

From  the  above  discussion,  the  constant  stiffness  method  can  be  used  to  solve 
nonlinear  problems  with  unloading  since  it  always  uses  the  linear  elastic  model  to 
formulate  the  stiffness  matrix  and  unloading  is  a linear  elastic  behavior.  However, 
when  the  tangent  stiffness  method  or  the  modified  tangent  stiffness  method  is  applied  to 
nonlinear  problems,  it  was  observed  by  the  author  that  the  stress  point  on  the  yield 
surface  after  unloading  may  not  fall  within  the  yield  surface.  Thus,  the  linear  elastic 
unloading  behavior  can  not  be  detected  and  the  correct  stiffness  can  not  be  reassembled. 

Here  a new  method  was  proposed  by  the  author.  This  method  takes  advantage  of 
both  the  constant  stiffness  method  and  the  tangent  stiffness  method.  The  first  iteration  in 
each  load  increment  uses  constant  stiffness  method  to  detect  the  linear  elastic  unloading 
behavior  and  define  the  stress  state  for  all  Gauss  (integration)  points.  If  the  stress  state 
is  found  linear-elastic  for  a particular  Gauss  point  then  the  rest  of  the  iterations  for 
that  particular  point  are  performed  using  linear  stiffness  matrix.  On  the  other  hand,  if 
the  stress  state  is  on  the  yield  surface  then  the  subsequent  iterations  in  that  particular 
load  increment  are  performed  using  tangent  stiffness  matrix.  Thus  the  first  iteration  in 
each  increment  is  used  to  check  if  the  elastic  unloading  behavior  occurs  and  thereafter 
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the  tangent  stiffness  method  is  used  to  accelerate  the  convergence.  This  method  has  been 
tested  extensively  in  this  study  considering  both  geometric  and  material  nonlinearities. 
A simple  unloading-reloading  example  is  shown  in  the  next  chapter  to  verify  this 
method.  The  two  field  problems  in  Chapter  9 were  solved  by  this  method.  Also,  some  of 
the  examples  with  monotonically  increasing  loading  have  also  been  tested  by  the  tangent 
stiffness  method  as  well  as  the  proposed  method  in  Chapter  7 and  both  solutions  show 
identical  results.  Hereafter,  the  proposed  method  will  be  called  the  mixed  stiffness 
method.  Figure  6-5  shows  how  the  mixed  stiffness  works  with  the  incremental  method 
in  a one-dimensional  problem. 
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Figure  6-3  Approximate  representation  of  loading-unloading 


Figure  6-4  Schematic  of  yield  surface  and  subsequent  yield  surface 


Load 
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Figure  6-5  Mixed  stiffness  method 


CHAPTER  7 


SOME  ANALYTICAL  VERIFICATIONS 

In  this  chapter,  the  computer  program  developed  in  this  study  is  used  to  solve 
some  preliminary  problems.  The  obtained  results  are  compared  with  the  exact  solutions 
or  with  solutions  obtained  by  other  investigators. 

Plane-Strain  Elastic  Large  Deformation  Problem 

Consider  the  plain  strain  problem  shown  in  Figure  7-1  a in  which  an  elastic 
specimen  is  subjected  to  a uniform  stress  on  the  top  side  and  is  bounded  on  the  other 
three  sides  by  smooth  rigid  walls.  The  linear  solution  to  the  problem,  which  relates  the 
stress  to  the  small  strain,  can  be  obtained  from  equation  4.8  as 

a = E’  e (7.1) 


where 


, E(1-u) 

” (1  +u)(1  -2u) 


(7.2) 


and  e = u / 10 


(7.3) 


u is  the  vertical  displacement  due  to  the  applied  stress  and  l0  is  the  original  height  of  the 
specimen.  However,  if  deformations  are  large,  the  stress  is  related  to  the  so-called 
logarithmic  strain,  that  is, 
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a = E'  £| 


(7.4) 


where 


£|-J 


1 


u 


(7.5) 


'o 


Thus,  the  exact  solution  is 


a = E'  ln(  — 
u 


(7.6) 


A non-dimensional  plot  of  Equation  7.6  is  shown  in  Figure  7-1  b along  with  two 
numerical  solutions,  one  obtained  using  ten  increments  and  one  with  fifty  increments.  It 
appears  that  the  approximate  solution  converges  towards  the  true  solution  as  the  number 
of  loading  increments  increases. 


In  order  to  verify  the  plastic  soil  models  used  in  the  computer  program,  a strip 
footing  is  analyzed  using  different  soil  models,  and  the  results  are  compared  with  the 
solutions  reported  in  the  literature. 

Strip  Footing  on  Von  Mises  Material 

In  the  first  case,  a flexible  strip  footing  is  supported  on  a homogeneous  isotropic 
soil  layer.  This  problem  has  been  solved  by  Davidson  and  Chen  [21]  using  two 
dimensional  constant  strain  triangular  elements  for  the  case  of  small  deformations.  The 
dimensions  for  the  problem  are  illustrated  in  Figure  7-2  and  the  soil  properties  are 


Settlement  and  Collapse  Calculations  of  Footings 


Stress/E' 
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(a) 


u/lo 

(b) 


Figure  7-1  Plane-strain  elastic  large  deformation  problem;  (a)  Test  problem; 

(b)  A non-dimensional  plot 
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24  ft. 
(a) 


i 


i 


| < 24  ft.  ^ 

(b) 


Figure  7-2  Mesh  geometry  for  footing  analysis;  (a)  Mesh  1;  (b)  Mesh  2 
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E = 30,000  psi 
l)  = 0.3 

c = 17.5  psi 
0 = 0° 

The  strip  footing  is  analyzed  as  a plane  strain  problem.  The  Drucker-Prager  model  is 
employed  in  the  analysis.  It  should  be  noted  that  for  soil  with  an  internal  friction  angle 
equal  to  zero,  the  Drucker-Prager  model  reduces  to  the  Von  Mises  yield  criterion. 

The  computed  load-displacement  curve  at  the  center  of  the  footing  is  shown  in 
Figure  7-3.  It  can  be  seen  that  the  results  of  settlement  agree  well  with  the  solution  by 
Davidson  and  Chen.  The  predictions  with  small  and  large  strain  assumptions  appear  to 
yield  similar  results.  This  could  be  due  to  the  fact  that  for  this  problem,  the 
deformations  in  the  material  are  governed  predominantly  by  the  material  nonlinearity 
rather  than  by  geometric  nonlinearity.  Figure  7-3  also  shows  the  effect  of  element 
selection  on  the  response  of  the  strip  footing.  The  analysis  using  the  linear 
isoparametric  element  display  the  "locking"  phenomenon  discussed  by  Nagtegaal  et  al. 
[71].  The  analysis  using  the  parabolic  isoparametric  element  is  consistent  with  the 
exact  collapse  load.  It  is  interesting  to  note  that  the  second  mesh  provides  a better 
solution  with  fewer  elements,  degrees  of  freedom,  and  total  gauss  points.  Therefore,  it  is 
expected  that  the  use  of  parabolic  elements  will  be  better  and  more  economical.  All 
obtained  solutions  used  the  same  number  of  loading  increments  and  a convergence 
tolerance  of  10‘8. 

Strip  Footing  on  Drucker-Praaer  and  Cap  Material 

In  the  second  case,  the  strip  footing  in  Figure  7-2  was  further  analyzed  by  using 
the  Drucker-Prager  and  Cap  models  with  the  following  material  properties. 


79 


Author's  Solutions: 


0 Isoparametric 
Isoparametric 
* Isoparametric 
+ Isoparametric 


linear  element  (small  strain) 
parabolic  element  (small  strai 
linear  element  (large  strain) 
parabolic  element  (large  strai 


n) 

n) 


Figure  7-3  Footing  response  for  Von  Mises  material 
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Drucker-Prager  model: 

E = 30,000  psi 
X)  = 0.3 

c = 10  psi 
0 = 20° 


Cap  model: 

E = 30,000  psi 
D=  0.3 

c = 10  psi 
0 = 20° 

R = 4.0 
W = 0.003 

D = 6.042x1  O'5  psf'1 

Results  are  presented  in  Figure  7-4  for  the  Drucker-Prager  and  Cap  models.  The 
limiting  cases  are  compared  with  the  collapse  solution  of  Prandtl,  Coulomb  and  Terzaghi. 
The  numerical  analysis  is  compared  with  that  done  by  Mizuno  [68]  with  the  rectangular 
elements  composed  of  the  CST  elements. 

A comparison  of  the  load-displacement  relations  predicted  by  the  Drucker- 
Prager  and  Cap  models  shows  that  the  Cap  model  predicts  larger  settlements  at  low 
stresses.  This  is  a reasonable  development  since  the  Drucker-Prager  model  neglects  the 
influence  of  the  plastic  volumetric  compaction.  Therefore,  it  is  expected  that  the 
settlement  prediction  obtained  using  the  Drucker-Prager  model  will  be  valid  for  only 


over-consolidated  soils. 


q (psi) 
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Author's  Solutions: 

o Isoparametric  linear  element  (small  strain) 

0 Isoparametric  parabolic  element  (small  strain) 
* Isoparametric  linear  element  (large  strain) 

+ Isoparametric  parabolic  element  (large  strain) 

Mi zu no's  Solutions: 


• Isoparametric  linear  element  (small  strain) 

■ Isoparametric  parabolic  element  (small  strain) 


Figure  7-4  Footing  response  for  Drucker-Prager  and  Cap  material 
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The  "locking"  phenomenon  is  found  again  for  the  linear  isoparametric 
formulation  in  both  the  Drucker-Prager  model  and  the  Cap  model  The  predictions  with 
small  and  large  deformation  assumptions  also  yield  similar  results.  The  analyses  for  the 
Drucker-Prager  model  and  the  Cap  model  were  performed  with  the  same  number  of 
loading  increments  and  a convergence  tolerance  of  10'8. 

Uniaxial  Volumetric  Compaction 

The  plastic  soil  models  were  further  tested  by  considering  a plane  strain  soil 
specimen  under  uniaxial  strain.  Both  the  Drucker-Prager  model  and  the  Cap  model  were 
again  used  in  the  analysis.  The  material  constants  are  the  same  as  those  used  by  Baladi 
and  Rohani  [1]: 

E = 841,396  psf 

\)  = 0.2763 

c = 0 

0 = 49.093° 

R = 4.33 

D = 6.781  x 10'5  ft2/lb 

W = 0.0075 


The  load-displacement  curves  are  shown  in  Figure  7-5  for  each  model.  The  soil 
is  loaded  vertically  up  to  24  kips/ft2  and  then  unloaded  to  zero  under  a static  condition. 
The  solid  lines  present  the  load-displacement  curve  predicted  by  the  Drucker-Prager 
model.  In  this  case,  the  load-displacement  relationship  is  linearly  elastic  under  the 
loading  as  well  as  unloading  path.  As  can  be  seen  from  Figure  7-5b,  the  stress  path  in 


( 1 1 , V J2)  space  for  this  case  is  a linear  line  within  a failure  envelope. 
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The  curve  connected  with  squares  shows  the  behavior  predicted  by  the  Cap  model 
under  a loading  condition.  The  load-displacement  relationship  is  not  linear  from  the 
beginning.  This  stems  from  the  fact  that  a compaction  of  plastic  volumetric  strain 
caused  by  a hardening  cap  influences  the  behavior  of  the  material  under  a low  level  l-|. 
As  the  applied  pressure  becomes  higher,  however,  the  state  of  the  compaction  in  the 
material  approaches  that  of  maximum  compaction.  Therefore,  the  slope  of  the  load- 
displacement  curve  under  a higher  level  of  the  applied  load  becomes  gradually  identical 
to  that  of  the  solid  line  predicted  by  the  Drucker-Prager  model.  During  loading  (Figure 
7-5c)  the  stress  path  in  (l-j , V J2)  space  moves  within  the  failure  envelope  and  is 
situated  on  the  hardening  cap.  On  the  other  hand,  the  stress  path  during  unloading 
(Figure  7-5d)  moves  within  the  current  elastic  region  while  the  hardening  cap  remains 
fixed  in  stress  space.  Consequently,  the  load-displacement  curve  shows  linear  elastic 
behavior  until  the  stress  path  touches  the  failure  envelope  on  the  opposite  side.  Once  the 
stress  path  reaches  the  failure  envelope,  a volume  expansion  or  dilatancy  develops. 
After  the  completion  of  the  loading-unloading  cycle,  the  residual  compaction  of  0.15 
inches  at  the  surface  is  predicted  by  the  Cap  model. 

This  problem  was  also  analyzed  by  Mizuno  [69],  and  Identical  results  have  been 
reported. 


Test  of  Modified  Stiffness  Method  in  Unloading 
As  stated  in  Chapter  6,  the  modified  stiffness  method  proposed  by  the  author  can 
automatically  predict  the  unloading  behavior.  The  validity  of  this  method  was  tested  by 
using  the  specimen  shown  in  Figure  7-6a.  The  Drucker-Prager  model  with  the 
following  properties  are  used: 

E = 500,000  psf 
'll  = 0.2 


84 


T 


0 2 4 6 8 


Vertical  Displacement  (ft,  x E-2) 

(a) 


Figure  7-5  Uniaxial  volumetric  compaction 
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c = 500  psf 
0 = 30° 


Two  loading  cases  were  analyzed.  For  the  first  case,  a vertical  compressive  load 
of  1690  psf  was  applied  to  the  top  surface,  while,  for  the  second  case,  the  load  was 
applied  as  follows: 

1.  A vertical  compressive  load  of  1340  psf  was  applied  to  the  top  surface. 

2.  The  specimen  was  then  unloaded  by  applying  a vertical  tensile  load  of  1340 
psf. 

3.  Reloading  was  then  performed  by  adding  a compressive  loading  of  1500  psf. 

4.  The  specimen  was  then  again  unloaded  by  applying  a vertical  tensile  load  of 

1500psf. 

5.  Reloading  was  then  again  performed  by  adding  a compressive  loading  of  1690 
psf. 

The  two  loading  cases  were  first  analyzed  considering  material  nonlinearity  only.  The 
load-displacement  curves  are  shown  in  Figure  7-6b  for  both  cases.  The  unloading 
behavior  is  linearly  elastic  since  the  unloading  path  is  parallel  to  the  initial  linear 
elastic  loading  path.  Reloading  first  traces  the  unloading  path  and  then  follows  the  load- 
displacement  curve  predicated  by  the  first  case.  The  two  loading  cases  were  further 
analyzed  considering  both  geometric  and  material  nonlinearities.  The  results  were 
shown  in  Figures  7-7.,  The  obtained  solutions  indicate  that  the  proposed  "mixed" 
stiffness  method  can  simulate  unloading  correctly. 


Compressive  Load  (psf) 
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Figure  7-6  Loading-unloading  load-displacement  curves 
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Figure  7-7  Loading-unloading  load-displacement  curves 
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One  Dimensional  Excavation 

A one-dimensional  plane  strain  problem  for  which  the  exact  solution  can  be  found 
by  the  theory  of  elasticity  is  analyzed  [93].  The  dimensions  of  the  problem  are  given  in 
Figure  7-8a  and  the  material  properties  are 

E = 10,000  t/m2 
u = 0.2 

y = 1.0  t/m3 
ko  = 0.5 


This  problem  was  also  solved  by  Sargand  [81]  by  using  a hybrid  finite  element 
method  and  by  Mana  [64]  by  using  the  displacement  finite  element  method.  Figure  7-8b 
and  7-8c  compare  different  numerical  results  with  the  exact  solution.  It  can  be  seen 
that  the  equivalent  nodal  forces  and  displacements  computed  by  the  author  and  Sargand 
using  only  one  element  yield  exact  solutions,  whereas  the  displacement  method  used  by 
Mana  using  eight  elements  failed  to  do  so.  Compared  to  the  results  by  Mana,  Sargand 
argued  that  the  hybrid  finite  element  method  can  provide  better  convergence  for  stresses 
and  displacements  than  the  displacement  method.  However,  by  using  the  excavation 
simulation  techniques  described  in  chapter  5,  the  displacement  finite  element  method 
can  provide  the  same  accurate  results. 

Uniqueness  Test  for  Excavation 

In  excavation,  when  a layer  of  soil  medium  with  linear  elastic  properties  is 
excavated  in  one  step  or  several  steps  the  behavior  should  be  the  same.  This  phenomenon 
was  evaluated  through  the  use  of  a plane  strain  problem  analyzed  by  Clough  [17].  Figure 
7-9  shows  the  geometry  of  the  problem.  Element  of  unequal  size  and  arbitrary  shapes 
were  included  in  the  finite  element  mesh,  and  the  excavation  boundary  consisted  of 
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Figure  7-11  One-dimensional  excavation;  (a)  Finite  element  representation; 
(b)  Comparison  of  equivalent  nodal  forces;  (c)  Comparison  of  displacement 
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Figure  7-9  Finite  element  mesh  for  uniqueness  test 


Figure  7-10  One-step  excavation 
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Figure  7-11  Three-step  Excavation 
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TABLE  7-1  Displacements  on  excavated  surfaces 


FEMCON  Solution 


Nodes 

1-Step  Excavation 
X-Disp.  Y-Disp. 

X-Disp. 

Y-Disp. 

3-Step  Excavation 
X-Disp.  Y-Disp. 

X-Disp. 

Y-Disp. 

4 

.00000 

1.1265 

.00000 

.26126 

.00000 

.48872 

.00000 

1.1265 

10 

-.0578 

1.2712 

-.0040 

.32648 

-.0154 

.60824 

-.0578 

1.2712 

16 

-.1108 

1.4733 

-.0088 

.43085 

-.0309 

.79976 

-.1108 

1.4733 

22 

-.1620 

1.4296 

-.0156 

.44516 

-.0546 

.82704 

-.1620 

1.4296 

27 

-.1648 

1.5363 

-.0209 

.71133 

-.0629 

1.3154 

-.1648 

1.5363 

28 

-.2314 

1.1928 

-.0254 

.49889 

-.0871 

.92214 

-.2314 

1.1928 

33 

-.0910 

1.3167 

-.0276 

.70473 

-.0581 

1.2586 

-.0910 

1.3167 

38 

.01344 

1.0776 

-.0016 

.82926 

.04094 

1.0906 

.01344 

1.0776 

39 

-.1228 

.94503 

-.0341 

.67725 

-.0817 

0.9579 

-.1228 

.94503 

44 

.04766 

.79068 

.02410 

.74574 

.07207 

.81431 

.04766 

.79068 

49 

-.0096 

.31842 

-.0130 

.36061 

-.0098 

.34211 

-.0096 

.31842 

50 

-.0879 

.36368 

-.0083 

.40428 

.00121 

.38710 

-.0879 

.36368 
unit:  ft. 

SOIL-STRUC  Solution 

Nodes 

1-Step  Excavation 
X-Disp.  Y-Disp. 

X-Disp. 

Y-Disp. 

3-Step  Excavation 
X-Disp.  Y-Disp. 

X-Disp. 

Y-Disp. 

4 

.00000 

1.1 139 

.00000 

.25952 

.00000 

.48137 

.00000 

1.1144 

10 

-.0834 

1.2794 

-.0034 

.32497 

-.0126 

.60362 

-.0817 

1.2797 

16 

-.1147 

1.4849 

-.0091 

.43068 

-.0331 

.80246 

-.11  03 

1.4866 

22 

-.1762 

1.4390 

-.0166 

.44612 

-.0592 

.83253 

-.1686 

1.4412 

27 

-.1446 

1.5362 

-.0242 

.71293 

-.0736 

1.3220 

-.1331 

1.5458 

28 

-.2289 

1.1907 

-.0269 

.50055 

-.0883 

.93058 

-.2227 

1.1936 

33 

-.0697 

1.3229 

-.0300 

.70863 

-.0498 

1.2756 

-.0607 

1.3226 

38 

.03251 

1.0738 

-.0041 

.83417 

.06674 

1.1015 

.03960 

1.0827 

39 

-.1182 

.94464 

-.0316 

.68467 

-.0758 

.96620 

-.1145 

.94656 

44 

.06490 

.78946 

.03457 

.75283 

.09363 

.81412 

.06780 

.78939 

49 

.01354 

.30185 

.01029 

.34886 

.01098 

.32305 

.01340 

.30260 

50 

-.0167 

.35286 

-.0148 

.39852 

-.0050 

.37494 

-.0150 

.35370 

unit:  ft. 
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inclined  as  well  as  horizontal  and  vertical  segments.  The  material  is  assumed  to  be 
linear  elastic  with  the  following  properties: 

E = 100,000  psf 
r = 100  pcf 
M = 0.3 
K0  = 0.43 


The  problem  involves  excavating  a block  of  material  by  using  one  step  and  three  steps  as 
shown  in  Figure  7-10  and  7-11. 

The  numerical  results  in  terms  of  displacements  from  one-step  and  three-step 
excavations  are  identical  as  is  shown  in  Table  7-1.  This  indicates  that  the  excavation 
simulation  technique  employed  can  provide  unique  solutions  independent  of  the  number 
of  excavation  steps.  Table  7-1  also  compares  with  the  displacements  obtained  from 
Program  SOIL-STRUC  by  Clough.  The  comparison  appears  to  be  fairly  good.  However, 
an  exact  correspondence  in  displacements  can  not  be  obtained  using  SOIL-STRUC. 

Construction  Sequences 

The  capabilities  of  the  computer  code,  FEMCON,  to  model  construction  sequences 
were  examined  using  a simple  sixteen  element  mesh.  Figure  7-1 2a  shows  the  geometry 
and  dimensions  for  the  test  problem.  The  geometry  was  chosen  such  that  the  results  are 
the  same  for  all  vertical  sections.  A plane  strain  idealization  was  assumed.  A linear 
elastic  constitutive  model  was  utilized  in  order  that  the  results  might  be  compared  to 
closed-form  solutions.  The  material  properties  used  in  the  problem  are 

E = 1.0  x 106  psf 
D = 0.2 


94 


k0  = 0.25 
y = 122.4  pcf 
Yw  = 62.4  pcf 


The  simulation  of  construction  sequences  for  this  problem  is  illustrated  in  Figure  7-12. 
Insitu  Stress 

The  mesh  shown  in  Figure  7-1 2a  was  analyzed  to  find  the  proper  insitu  stresses 
for  use  in  the  dewatering  simulation.  Plots  of  the  computed  variation  of  the  vertical  and 
horizontal  stresses  with  depth  are  given  in  Figure  7.13a.  The  computed  values  are  exact 
in  that  the  vertical  stresses  are  equal  to  the  Buoyant  unit  weight  of  the  material 
multiplied  by  the  depth  and  the  horizontal  stresses  are  equal  to  the  coefficient  of  lateral 
earth  pressure  multiplied  by  the  vertical  stresses. 

Dewatering 

Using  the  insitu  stress  results  from  above,  the  dewatering  sequence  was 
simulated  in  which  the  water  table  is  lowered  from  level  A to  level  B as  shown  in  Figure 
7-1 2a  and  7-1 2b.  The  computed  stresses  as  functions  of  depth  are  shown  in  Figure 
7.13b.  The  net  effect  of  lowering  the  water  table  was  in  accordance  with  what  was 
expected.  Lowering  the  water  table  removes  the  Buoyant  forces  in  the  dewatered  region 
and  increases  its  effective  weight  by  an  amount  equal  to  the  unit  weight  of  water,  thereby 
increasing  the  effective  stress  in  the  region. 

Excavation 

The  simulation  of  excavation  was  performed  by  removing  the  top  two  layers  of 
elements  from  the  mesh  as  shown  in  Figure  7-1 2c.  As  can  be  seen  in  Figure  7-1 3c,  the 
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stresses  are  decreased  by  an  amount  equal  to  the  height  of  the  excavated  layers 
multiplied  by  its  density. 

Embankment 

The  simulation  of  embankment  was  purposely  performed  by  putting  the  excavated 
material  back  to  the  top  two  layers  of  the  mesh.  As  can  be  seen  in  Figure  7-1 3d,  the 
stresses  are  increased  by  an  amount  equal  to  the  height  of  the  embankment  layers 
multiplied  by  its  density.  However,  due  to  the  linear  material  properties,  the  stresses 
after  embankment  are  identical  to  those  after  dewatering. 

Reestablishment  of  Water  Table 

After  the  embankment  was  completed,  the  water  table  was  raised  to  its  original 
height.  This  is  shown  in  Figure  7-1 2e.  Contrary  to  dewatering,  as  can  be  seen  in  Figure 
7-1 3d,  raising  the  water  table  will  decrease  the  effective  stresses.  Again,  due  to  the 
linear  material  properties,  the  results  in  Figure  7-1 3e  are  the  same  as  those  in  Figure 
7-1 3a  of  the  insitu  stress  case. 
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Figure  7-13  Construction  sequences;  (a)  Insitu;  (b)  Dewatering;  ( 
(d)  Embankment;  (e)  Reestablishment  of  water  table 
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Figure  7-13  Stress  results;  (a)  Insitu;  (b)  Dewatering;  (c)  Excavation; 
(d)  Embankment;  (e)  Reestablishment  of  water  table 


CHAPTER  8 


DISCRETE  ELEMENT  ANALYSIS 


In  this  chapter,  the  discrete  element  method  will  be  used  to  analyze  the  U-frame 
structures.  Haliburton  [45]  and  Hays  [46]  had  demonstrated  the  use  of  the  discrete 
element  method  for  analysis  of  soil-structure  interaction  problems  including  piles, 
braced  excavation  and  sheet  piles.  The  nonlinear  discrete  element  program  FRAME54, 
developed  by  Hays,  is  used  in  this  study.  In  this  analysis,  construction  sequence  was  not 
considered. 

The  discrete  element  method  uses  nonlinear  Winkler-type  springs  (q-w  curves 
or  soil  response  curves)  to  represent  the  soil  medium.  The  q-w  curves  for  the  earth 
retaining  structures  can  be  determined  experimentally  as  done  by  Sheriff  and  Fang 
[85],  or  obtained  empirically  as  shown  by  Haliburton  [45].  Haliburton  defined  the  q-w 
curves  by  using  the  Rankine  theory  and  the  empirically  determined  values  of  soil 
modulus.  In  this  chapter,  these  curves  are  generated  numerically  using  the  finite 
element  program,  FEMCON,  and  a discussion  on  them  is  also  presented. 

After  defining  the  p-w  curves,  the  U-frame  structures  are  analyzed  using  the 
discrete  element  method  as  well  as  the  finite  element  method.  The  discrepancies  obtained 
from  the  numerical  results  by  the  two  methods  are  explained  and  a method  is  suggested  to 
bring  the  two  solutions  closer. 

Soil  Response  Curves  bv  Finite  Element  Method 

Before  trying  to  generate  q-w  curves  by  the  finite  element  analysis,  it  might  be 
useful  to  review  the  relation  between  wall  movement  and  earth  pressure.  This  relation 
is  shown  qualitatively  in  Figure  8-1.  The  wall  is  constructed  so  that  it  can  be  held  in  a 
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Figure  8-1 


Results  of  retaining  wall  tests;  (a)  Vertical  section  through  bin; 
(b)  Load-displacement  relationship 
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fixed  position  or  moved  inward  or  outward.  The  wall  is  initially  at  rest  and  held  by  a 
force  P=P0-  As  the  force  P is  reduced,  the  wall  will  be  forced  outward  due  to  the  weight 
of  the  soil.  As  P is  gradually  reduced,  the  soil  initially  undergoes  elastic  deformation, 
then  elastic-plastic  deformation  and  finally,  uncontained  plastic  flow  and  thus  defines 
the  active  collapse  load,  Pan-  On  the  other  hand,  if  the  force  P is  increased  from  P0, 
displacement  occurs  and  failure  results  as  the  passive  collapse  load  Ppn  is  approached. 

Having  reviewed  the  load-displacement  relationship,  it  is  now  possible  to 
construct  q-w  curves  using  the  finite  element  method  by  moving  the  wall  inward  and 
outward.  As  mentioned  previously,  the  discrete  element  method  of  analysis  makes  use  of 
the  well-known  Winkler  assumption  concerning  independent  behavior  of  adjacent  soil 
layers.  Because  of  this  assumption  the  effect  of  possible  shearing  in  soil  and  between 
wall  and  soil  is  not  considered.  It  is  interesting  to  note  here  that  this  is  the  same 
assumption  made  in  the  Rankine  earth  pressure  theory.  To  achieve  this  assumption,  the 
rigid  wall  and  backfill  system  shown  in  Figure  8-2a  is  used.  Beginning  from  the  initial 
at-rest  pressure  conditions,  the  wall  was  moved  towards  or  away  from  the  backfill  in  a 
series  of  increments,  until  the  passive  or  active  earth  pressure  condition  was  reached. 
Figure  8-2b  shows  the  mesh  used.  In  order  to  simulate  the  incremental  displacements, 
bar  elements  with  a very  high  stiffness  were  used.  The  effect  of  wall  displacement  can  be 
accomplished  by  applying  a load  equal  to  the  value  of  the  bar  stiffness  times  the 
displacement  to  the  nodal  points  that  connect  bars  and  soil  elements.  It  should  be 
mentioned  here  that  the  results  obtained  from  the  finite  element  analysis  are  only  as 
valid  as  the  stress-strain  parameters  used  in  the  analysis.  The  Drucker-Prager  soil 
model  is  used  in  this  chapter. 

Two  cases  are  analyzed.  The  first  case  deals  with  a cohesionless  soil  with  the 
following  properties: 

E = 4.32  x 106  psf 


v = 0.30 
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Figure  8-2  Retaining  wall-backfill  system  to  generate  q-w  curves; 
(a)  retaining  wall  and  backfill;  (b)  Finite  element  mesh 
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7 = 120  pcf 
K0  = 0.43 

The  second  case  deals  with  a cohesive  soil  with  the  following  properties: 

E = 4.32  x 106  psf 
\)  = 0.30 
7 = 150  pcf 
K0  = 0.43 
c = 360  psf 
0 = 20° 


The  obtained  load-displacement  curves  and  p-w  curves  are  shown  in  Figures  8-3,  8-4  , 
8-5,  8-6  for  the  two  cases.  Due  to  the  same  assumption  used  in  the  finite  element 
analysis  and  the  Rankine  earth  pressure  theory,  the  obtained  results  can  be  verified  by 
the  Rankine  earth  pressure  theory.  Thus,  here  the  Rankine  earth  pressure  theory  is 
numerically  verified  using  the  plasticity  Drucker-Prager  model. 

Analysis  of  U-frame  Structures 

The  p-w  curves  shown  in  Figure  8-6  were  used  in  this  section  to  analyze  a 
retaining  wall  and  two  U-frame  structures.  These  structures  are  solved  by  the  discrete 
element  method  and  the  finite  element  method.  The  concrete  is  used  as  the  structural 
material  and  has  the  following  properties: 

E = 4.32  x 108  psf 
\)  = 0.2 


7 = 150  pcf 
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Figure  8-3  Load-displacement  (P-W)  curve  for  a cohesionless  soil 


Stress,  psf 


1 04 


Displacement,  ft 


Figure  8-4  Soil-response  (q-w)  curve  for  a cohesionless  soil 
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Figure  8-5  Load-displacement  (P-W)  curve  for  a cohesive  soil 
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Figure  8-6  Soil  response  (q-w)  curve  for  a cohesive  soil 


107 


The  retaining  structure  and  its  discrete  element  and  finite  element 
representations  are  shown  in  Figure  8-7.  In  the  finite  element  mesh,  the  interface 
elements  behind  the  wall  are  added  to  consider  the  relative  displacement  between  the 
wall  and  the  backfill,  and  a very  small  shear  modulus  is  assigned  to  simulate  the 
frictionless  smooth  wall  behavior.  The  obtained  results  are  shown  in  figure  8-8a. 
Clearly,  it  can  be  seen  that  the  discrete  element  analysis  predicts  a much  larger  wall 
deflection.  This  is  due  to  the  fact  that  the  p-w  curves  used  neglect  the  shear  stresses 
between  soil  layers.  However,  when  the  soil  exerts  its  self  weight  on  the  flexible  wall, 
the  shear  stresses  developed  due  to  the  self  weight  of  the  soil  tend  to  prevent  the  soil 
from  moving  laterally.  In  order  to  consider  the  shear  effect,  the  p-w  curves  are 
modified  by  using  a larger  soil  modulus.  It  is  found  that  in  this  case  the  discrete  element 
solution  can  be  adjusted  approximately  to  the  finite  element  solution  if  a soil  modulus 
about  three  times  its  original  value  is  used.  The  adjusted  solution  is  shown  in  Figure  8- 
8b. 

The  next  structure  analyzed  is  an  unsymmetrical  U-frame  structure  on  a rigid 
base.  Its  finite  element  and  discrete  element  representations  are  shown  in  Figure  8-9. 
The  same  interface  element  is  used  in  the  finite  element  analysis  and  the  interaction 
between  the  structure  and  the  rigid  base  is  assumed  to  be  frictionless.  The  obtained 
results  using  the  original  soil  modulus  in  Figure  8-6  are  shown  in  Figure  8-1 0a.  It  is 
found  that  in  this  case  the  discrete  element  solution  can  be  adjusted  approximately  to  the 
finite  element  solution  if  a soil  modulus  about  two  times  its  original  values  is  used.  The 
adjusted  solution  is  shown  in  Figure  8-1  Ob. 

The  final  structure  analyzed  is  an  unsymmetrical  U-frame  structure  in  soil 
medium.  Its  finite  element  and  discrete  element  representations  are  shown  in  Figure  8- 
11.  The  same  interface  element  is  used.  For  the  discrete  element  analysis,  in  this  case, 
it  is  necessary  to  generate  the  soil  response  curve  (Winkler  spring)  under  the  U-frame 
base  slab.  This  is  done  by  using  the  structure  shown  in  Figure  7-5.  The  obtained 
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results  using  both  lateral  and  base  soil  response  curves  are  shown  in  Figure  8-12.  For 
this  case,  however,  the  author  found  that  it  is  very  difficult  to  adjust  the  discrete 
element  solution  to  the  finite  element  solution.  This  is  due  to  the  added  complexities 
caused  by  the  base  Winkler  springs.  It  is  noted  here  that  in  generating  the  Winkler 
spring  curves  the  shearing  between  the  springs  is  ignored  and  the  confining  pressures 
acting  between  them  are  very  difficult  to  simulate. 

From  the  study  of  the  above  three  structures,  to  obtain  accurate  discrete 
solutions,  it  would  be  necessary  to  generate  soil  response  curves  that  include  the 
shearing  effects.  These  curves,  however,  at  this  time  can  not  be  generated  by  FEMCON. 
This  is  due  to  the  lack  of  the  plasticity  interface  element  models  to  simulate  the 
nonlinear  shearing  behavior  between  two  different  materials.  These  types  of  models  are 
rarely  found  in  the  literature  and  this  is  a good  area  for  future  research. 
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Figure  8-7  Retaining  wall  deflection;  (a)  Finite  element  model; 
(b)  Discrete  element  model 
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(b) 


Figure  8-8  Retaining  wall  deflection;  (a)  Original  solutions;  (b)  Modified  solutions 
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Figure  8-9  U-frame  on  a rigid  base;  (a)  Finite  element  model;  (b)  Discrete  element  model 
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Figure  8-10  U-frame  wall  deflection;  (a)  Original  solutions;  (b)  Modified  solutions 
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Figure  8-11  U-frame  in  soil  medium;  (a)  Finite  element  model;  (b)  Discrete  element  model 
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Figure  8-12  U-frame  displacements 


CHAPTER  9 


FIELD  PROBLEMS 


In  this  chapter,  two  field  problems  were  analyzed  in  order  to  evaluate  the 
proposed  formulation  with  regard  to  more  realistic  problems.  The  problems  are:  (1) 
Port  Allen  lock,  and  (2)  braced  excavation  in  soft  clay.  The  predictions  from  the  present 
study  are  compared  with  field  measurements  and  with  previous  FEM  analyses.  The 
material  properties  and  the  details  of  the  field  problems  are  adopted  from  other 
investigators. 


Port  Allen  Lock 

Introduction 

The  Port  Allen  Lock,  located  on  the  right  bank  of  the  Mississippi  River  opposite 
Baton  Rouge,  La.,  is  a reinforced  concrete  U-frame  lock  structure  with  a navigation 
chamber  84  ft  wide,  1,200  ft  long  and  68  ft  high.  A cross  section  of  Port  Allen  Lock  is 
shown  in  Figure  9-1. 

Recognizing  the  need  to  clarify  the  nature  of  the  earth  pressure  distribution  for 
future  U-frame  lock  design,  the  U.  S.  Corps  of  Engineers  undertook  a very 
comprehensive  instrumentation  program  for  Port  Allen  Lock.  This  instrumentation 
program  was  carried  out  by  the  U.  S.  Army  Engineers  Waterways  Experiment  Station. 
Details  of  the  instrumentation  have  been  described  by  Sherman  and  Trahan  [86].  A 
nonlinear  finite  element  analysis  of  this  problem  was  reported  by  Clough  and  Duncan 
[17]  using  the  variable  moduli  (Duncan-Chang)  soil  model.  The  results  from  the 
present  analysis,  which  considers  both  material  and  geometric  nonlinearities,  are 
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compared  with  those  from  the  previous  finite  element  analysis  and  the  instrumentation 
program.  For  a consistent  comparison  the  elastic-plastic  material  parameters  were 
obtained  based  on  experiments  and  studies  done  by  Sherman  and  Trahan,  and  Clough  and 
Duncan.  The  initial  soil  profile  is  shown  in  Figure  9-2. 

Problem  Description 

The  incremental  finite  element  analyses  of  Port  Allen  Lock  were  performed  by 
simulating  each  of  the  actual  construction  operations  in  one  or  more  analytical  sequences 
involving  changes  in  loading  and  mesh  geometry.  Each  of  the  various  loading  sequences 
was  simulated  by  one  of  the  techniques  described  in  chapter  5.  Beginning  from  the 
initial  condition  of  the  site  with  insitu  stresses  and  water  pressures,  these  steps 
progressed  through  excavation  and  dewatering,  placement  of  concrete  and  backfill, 
reestablishment  of  normal  ground  water  conditions,  and  filling  of  the  lock  with  water.  A 
schematic  representation  of  finite  element  simulation  of  Port  Allen  Lock  is  shown  in 
Figure  9-3.  The  finite  element  mesh,  which  is  shown  in  Figure  9-4,  was  used 
throughout  these  analyses  of  various  sequences.  Depending  on  the  sequences  represented, 
the  elements  in  the  mesh  were  assigned  properties  representative  of  the  natural  soils; 
air  (after  excavation);  or  concrete  or  backfill  soil  (after  construction). 

The  insitu  soil  stresses  and  water  pressure  employed  at  the  beginning  stage  of 
these  analyses  were  calculated  using  the  unit  weights  of  soils,  at-rest  pressure 
coefficients,  and  the  ground  water  table  shown  in  the  initial  soil  profile  in  Figure  9-2. 
Excavation  was  simulated  in  three  operations  as  shown  from  Figure  9-3b  to  9-3d. 
During  the  second  and  third  operations,  dewatering  was  included.  The  placement  of 
concrete  in  the  base  slab  and  walls,  the  placement  of  backfill,  and  the  reestablishment  of 
normal  groundwater  conditions  were  analyzed  in  a series  of  increments  as  shown  from 
Figure  9-3e  to  9-2k.  Subsequently,  as  shown  by  the  final  operation  in  Figure  9-31, 
filling  of  the  lock  with  water  was  also  simulated.  The  sequence  of  operations  represented 
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Figure  9-1  Cross  section  of  Port  Allen  Lock 
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Figure  9-2  Initial  soil  profile  for  Port  Allen  Lock  site 
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Figure  9-3  Schematic  representation  of  finite  element  simulation  of  Port  Allen  Lock 
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Figure  9-4  Finite  element  mesh  employed  for  incremental  analyses  of  Port  Allen  Lock 
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TABLE  9-1 

Material  Properties  for  Incremental  Analyses  of  Port  Allen  Lock 


Location 

Soil 

type 

E 

(psi) 

D 

7 

(pcf) 

K0 

c 

(psf) 

0 

degrees 

Foundation 

Silt 

8,700 

0.30 

115.00 

0.43 

40.0 

33.0 

Sand 

10,600 

0.30 

115.00 

0.43 

0.00 

40.0 

Backfill 

Sand 

3,000 

0.30 

115.00 

0.43 

0.00 

40.0 

Clay 

1,500 

0.30 

115.00 

0.43 

80.0 

26.0 

Interface  element  properties:  E = 3000.0  psi 

v = 0.30 
G = 1000.0  psi 

Concrete  properties:  E = 3.0  x 106  psi 

d = 0.20 


y =150.0  pcf 
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in  these  analyses  was  chosen  to  correspond  as  closely  as  possible  to  the  sequences  of 
operations  involved  in  construction  of  the  lock. 

The  soil  behavior  was  simulated  as  elastic-plastic  using  the  Drucker-Prager 
model.  Thin-layer  elements  were  employed  to  represent  the  interface  between  the  soil 
and  concrete  while  two-dimensional  quadrilateral  elements  used  by  Clough  and  Duncan 
were  employed  to  represent  the  soil  and  concrete.  The  material  properties  used  for  the 
analysis  are  shown  in  Table  9-1.  The  concrete  and  interface  element  materials  were 
assumed  to  be  linear  elastic. 

Discussion  of  Results 

Excavation  Rebound.  The  variation  of  the  calculated  rebound  of  the  center  line  of 
the  excavation  at  the  bottom  of  the  base  slab  over  a period  of  time  is  shown  in  Figure  9- 
5.  Approximately  50%  of  the  rebound  occurred  during  the  first  increment  because  in 
the  second  and  third  increments  dewatering  served  partially  to  counteract  the  effects  of 
excavation.  The  only  value  of  observed  rebound  reported  by  Sherman  and  Trahan  was 
that  for  the  end  condition,  shown  in  Figure  9-5.  This  value  at  the  center  line  was  0.29 
ft  and  at  the  edge  of  the  excavation  was  0.26  ft.  The  corresponding  values  calculated  by 
the  author  were  0.30  ft  and  0.26  ft  and  by  Clough  and  Duncan  were  0.22  ft  and  0.21  ft. 
The  differences  between  two  finite  element  analyses  are  probably  due  to  the  different 
excavation  simulation  techniques  and  soil  models  used.  The  technique  used  by  the  author 
gives  results  closer  to  the  field  observation. 

Settlement.  The  variation  of  the  settlements  of  the  center  line  of  the  lock  with 
time  is  shown  in  Figure  9-5.  From  May  1958  to  March  1959  the  three  sets  of 
settlements  agreed  very  closely.  From  this  time  to  about  December  1959,  the  water 
pressures  on  the  base  of  the  lock  increased  because  the  backfill  was  maintained  in  a 
saturated  condition.  Also,  during  this  period,  little  weight  was  being  added  to  the  lock  as 
the  backfill  was  not  yet  being  placed  over  the  culvert.  For  these  reasons,  the  observed 
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settlements  were  small  and  the  calculated  settlements  decreased  slightly  until  September 
1959.  After  that,  the  backfill  was  placed  over  the  culvert  and  the  calculated  settlements 
increased  gradually. 

The  final  settlement  of  the  lock  at  the  end  of  construction  before  the  lock  filled 
with  water  (Case  II')  is  shown  in  Figure  9-5.  The  calculated  settlement  was  0.21  ft  and 
the  observed  value  was  0.19  ft.  Filling  of  the  lock  with  water  produced  additional 
calculated  settlement  of  0.06  ft  as  opposed  to  an  observed  additional  settlement  of  0.03  ft 
as  shown  in  Figure  9-5.  The  total  calculated  settlement  for  this  condition  (Case  III') 
was  0.27  ft  as  compared  to  the  observed  value  of  0.22  ft.  It  can  be  seen  that  the  present 
analysis,  in  general,  provides  more  accurate  results  than  that  by  Clough  and  Duncan. 

The  reason  for  predicting  more  additional  settlements  for  Case  II'  and  III'  may  be 
due  to  that  the  elastic  soil  modulus  used  is  a little  lesser  and  the  soils  under  the  base  slab 
have  already  yielded  fully. 

Structural  Deflections.  Figures  9-6  and  9-7  show  structural  deflections  for 
case  II'  and  III'  respectively.  It  can  be  seen  that  the  calculated  wall  deflections  agree 
closely  with  field  observations.  It  is  interesting  to  see  that  after  filling  the  lock  with 
water  and  raising  the  water  level  outside  of  the  lock  the  wall  deflects  inward  a little. 

The  calculated  base  slab  deflections,  however,  were  inconsistent  with  those 
observed.  At  the  outer  edge  the  base  slab  deflects  more  for  case  II'  and  less  for  case  III'. 
The  reason  for  the  deviation  of  the  calculated  and  observed  results  at  this  location  for 
case  II'  may  be  that  the  elastic  soil  modulus  used  under  the  base  slab  is  slightly  small  and 
the  backfill  above  the  culvert  causes  the  soil  beneath  it  to  yield  fast  and  then  settle  more. 
For  case  III',  the  deviation  may  be  due  to  the  fact  that  the  loading  by  filling  of  the  lock 
with  water  and  raising  water  level  outside  of  the  lock  causes  the  base  slab  to  deflect  more 
at  the  center  than  at  the  outer  edge.  This  is  also  the  reason  why  the  outward  wall 
deflections  for  case  III'  are  less  than  for  case  II'. 
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The  calculated  structural  deflections,  except  the  base  slab  deflection  for  case  II', 
are  also  generally  in  agreement  with  those  by  Clough  and  Duncan.  The  difference  in  the 
case  IP  base  slab  deflection  may  be  due  to  the  different  soil  models  used. 

Effective  Earth  Pressures.  The  values  of  effective  earth  pressures  given  by  the 
author  were  obtained  from  the  interface  elements.  Figures  9-8  and  9-9  show  the 
effective  earth  pressures  acting  on  the  lock  for  cases  IP  and  IIP  respectively.  Note  that 
there  is,  in  general,  a good  agreement  between  the  calculated  and  observed  earth 
pressures. 

Variation  of  the  effective  earth  pressure  with  time  for  a point  at  the  center  line 
of  the  base  slab  and  a point  on  the  upper  lock  wall  slightly  above  the  culvert  are  shown 
in  Figure  9-10.  The  agreement  between  the  three  sets  of  values  may  be  seen  to  be  quite 
good.  It  can  be  seen  that  the  calculated  and  observed  effective  earth  pressures  on  the  base 
showed  an  initial  steady  increase,  but  after  the  early  part  of  1959,  there  was  a decrease 
in  both  the  observed  and  measured  values  of  effective  earth  pressure.  This  decrease  was 
due  to  the  increase  in  uplift  pressures  on  the  base  slab,  which  was  caused  by  raising  the 
water  table.  Subsequently,  the  effective  earth  pressures  increased  again  when  the 
backfill  was  placed  over  the  culvert. 

The  results  of  these  nonlinear  incremental  analyses  are  in  good  agreement  with 
the  observed  behavior.  The  observed  rebounds  during  excavation,  settlement  during 
construction,  earth  pressures,  and  wall  deflections  agree  closely  with  the  calculated 
values.  It  may  be  concluded,  therefore,  that  these  analyses  provide  an  effective  means 
for  analyzing  complex  soil-structure  interaction  problems  and  would  provide  a suitable 
analysis  procedure  for  use  in  design  studies  for  future  U-frame  locks. 


125 


o 


Figure  9-6  Structural  deflections  for  case  IT 
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Figure  9-7  Structural  deflections  for  case  III' 
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Figure  9-8  Effective  earth  pressures  for  case  II' 
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Figure  9-9  Effective  earth  pressures  for  case  III 
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Figure  9-10  Variation  of  effective  earth  pressures  with  time 
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Braced  Excavation  in  Soft  Clav 

Introduction 

The  problem,  which  is  known  as  Vaterland  1,  was  a test  section  on  the  Oslo 
subway  system  which  was  instrumented  and  the  field  data  were  reported  by  the 
Norwegian  Geotechnical  Institute  [16].  A nonlinear  material  finite  element  analysis  of 
this  problem  was  reported  by  Mana  [64]  and  the  material  parameters  given  by  him  are 
used  in  this  analysis.  It  should  be  mentioned  here  that  the  material  properties  were 
based  on  limited  triaxial  tests  on  the  soil.  The  excavation  site  and  a soil  profile  is 
illustrated  in  Figure  9-11.  The  results  from  the  present  analysis,  which  considers  both 
material  and  geometric  nonlinearities,  are  compared  with  those  from  Mana  and  the  field 
observations. 

Problem  Description 

The  soil  behavior  is  simulated  as  elastic-plastic  by  employing  the  Drucker- 
Prager  model.  Figure  9-12  shows  the  finite  element  mesh.  Bar  elements  are  used  to 
model  the  struts  and  thin-layer  elements  were  used  where  the  soil  is  in  contact  with  the 
wall.  The  material  properties  used  for  the  analysis  are  shown  in  Table  9-2.  The  wall, 
strut  and  interface  element  materials  were  assumed  to  be  linear  elastic.  The  analysis 
involved  eight  stages  which  included  insitu  stress  conditions  with  a number  of  excavation 
and  strut-installation  sequences: 

Stage  1 : Compute  initial  stresses,  install  the  wall  and  excavate  to  elevation 
+0.2  meters. 

Stage  2:  Install  strut  A and  excavate  to  elevation  -2.0  meters. 

Stage  3:  Install  strut  B and  excavate  to  elevation  -3.0  meters. 

Stage  4:  Install  strut  C and  excavate  to  elevation  -4.0  meters. 

Stage  5:  Excavate  to  elevation  -5.0  meters. 
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Figure  9-11  Vaterland  1,  site  and  soil  profile 
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Figure  9-12  Finite  element  mesh  for  Vaterland  1 excavation 
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TABLE  9-2 


Soil  Properties  for  Vaterland  1 [64] 


Material 

E 

C 

Y 

Number 

(t/m2) 

u 

(t/m2) 

0 

(t/m2) 

ko 

1 

800.0 

0.4933 

4.0 

0 

1.95 

0.65 

2 

760.0 

0.4933 

3.8 

0 

1.95 

0.65 

3 

900.0 

0.4933 

4.5 

0 

1.95 

0.65 

4 

500.0 

0.4967 

5.0 

0 

1.95 

0.65 

5 

410.0 

0.4967 

4.1 

0 

1.95 

0.65 

6 

368.0 

0.30 

1.42 

0 

1.95 

0.65 

Wall  properties 

E = 

2.76  x 106  t/m2,  d 

= 0.33 

Interface  properties 

E = 450.0  t/m2,  i)  = 

: 0.33,  G 

= 0.10  t/m2 

Strut  properties  Strut  A,  D Area  =1.0  m2 

E = 912.0  t/m2 
Strut  B,  C,  E Area  = 1.0  m2 


E = 4560.0  t/m2 
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Stage  6:  Install  strut  D and  excavate  to  elevation  -6.0  meters. 

Stage  7:  Excavate  to  elevation  -7.0  meters. 

Stage  8:  Install  strut  E and  excavate  to  elevation  -0.8  meters. 

Note  that  the  struts  were  not  prestressed. 

Discussion  of  Results 

Soil  and  sheet  pile  deformation.  Figures  9-13,  9-14,  9-15  and  9-16  show 
sheet  pile  deflections  and  settlements  behind  the  wall  for  stages  2,  5,  7 and  8 
respectively.  The  sheet  pile  deflections  computed  by  the  present  analysis  are  generally 
in  agreement  with  the  results  given  by  Mana  and  with  field  measurements.  However,  the 
calculated  wall  deflections  at  later  stages  appear  to  be  less  than  observed.  It  should  be 
noted  here  that  the  present  analysis  is  performed  based  on  the  assumption  of  undrained 
conditions.  However,  since  most  of  the  field  measurements  were  taken  after  a period  of 
time,  the  obtained  results  may  have  been  affected  by  such  factors  as  consolidation  and 
creep.  Also,  the  strength  of  clay  adjacent  to  the  excavated  surface  may  have  decreased 
with  time.  These  could  be  the  reasons  for  underestimation  of  the  deformation  of  the  sheet 
pile  and  of  the  soil. 

The  heave  of  the  soil  at  node  7 is  shown  in  Figure  9-17  for  all  stages.  The 
present  analysis  predicts  values  which  are  smaller  than  those  from  field  measurements. 
This  is  probably  again  due  to  the  underestimation  of  the  deformation  of  the  sheet  pile. 

Strut  Load.  The  axial  force  in  each  strut  is  shown  in  Figures  9-18  and  9-19. 
The  results  obtained  using  the  present  analysis  show  slight  improvement  compared  to 
the  results  by  Mana.  However,  for  strut  D,  the  obtained  results  are  not  in  agreement 
with  field  measurements.  This  may  be  due  to  unreliable  test  data  because  strut  D was 
installed  at  later  stage  and  it  seems  unlikely  that  it  will  have  the  axial  load  much  greater 


than  those  installed  earlier. 
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Earill — Pr.essiirg.  Figures  9-20,  9-21,  9-22  and  9-23  show  the  earth 

pressures  acting  on  the  wall  for  stages  2,  3,  5 and  7,  respectively.  The  values  given  by 
the  author  were  obtained  from  the  interface  elements  which  are  adjacent  to  the  wall.  The 
predicted  values  are  in  good  agreement  with  the  field  measurements  and  have  the  same 
general  trend  predicted  by  Mana. 

The  correlation  between  calculated  values  and  field  measurements  can  be 
influenced  by  a number  of  factors,  the  chief  among  them  being  the  material  model  for  the 
soil.  The  predictions  using  the  Drucker-Prager  model  are  considered  to  be  good  overall, 
and  they  may  be  improved  using  more  sophisticated  models.  However,  it  is  believed  that 
the  finite  element  analysis  procedure  presented  in  this  study  can  be  used  for  future 
studies. 
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Figure  9-13  Wall  and  the  soil  deformation  (Stage  2) 
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Figure  9-14  Wall  and  the  soil  deformation  (Stage  5) 
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Figure  9-15  Wall  and  the  soil  deformation  (Stage  7) 
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Figure  9-16  Wall  and  the  soil  deformation  (Stage  8) 
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Figure  9-17  Heave  at  node  7 
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Figure  9-18  Strut  loads  at  all  stages 
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Figure  9-19  Strut  loads  at  all  stages 
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Figure  9-20  Earth  pressure  (Stage  2) 
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Figure  9-21  Earth  pressure  (Stage  3) 
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Figure  9-22  Earth  pressure  (Stage  5) 
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Figure  9-23  Earth  pressure  (Stage  7) 


CHAPTER  10 


CONCLUSIONS 


The  principal  result  of  this  research  has  been  the  development  of  a nonlinear 
geometric  and  material  finite  element  analytical  method  for  predicting  the  behavior  of 
the  U-frame-soil  interaction  including  construction  sequences.  The  method  has  been  put 
into  a useful  form  by  developing  computer  program  FEMCON. 

This  chapter  first  summarizes  the  work  done  in  this  study,  and  then  conclusions 
of  the  research  are  given.  Finally,  recommendations  for  future  studies  are  discussed. 

Summary 

A general  incremental  finite  element  formulation  for  elastic-plastic  bodies 
subjected  to  large  strains  and  large  deformations  is  presented.  The  formulation  is  done 
in  updated  Lagrangian  coordinates  and  is  further  expanded  to  include  models  simulating 
construction  sequences.  Based  on  the  formulation,  a computer  program,  FEMCON,  is 
developed.  The  program  has  sufficient  generality  to  analyze  two-dimensional  soil- 
structure  interaction  problems. 

Three  plastic  constitutive  models  were  implemented.  They  are:  1)  Mohr-Columb 
model,  2)  Drucker-Prager  model,  and  3)  Cap  model.  The  tangent  stiffness  matrices  for 
Mohr-Coulomb  and  Cap  plasticity  models  were  derived  in  Appendices  A and  B 
repectively.  A special  "thin"  interface  element  which  uses  a linear  elastic  or  hyperbolic 
constitutive  model  was  used  to  model  the  interface  between  soil  and  structure. 

Models  for  simulating  insitu  stresses,  dewatering,  excavation  and  embankment 
are  presented,  but  greater  emphasis  is  given  to  excavation.  The  excavation  model  used 
earlier  in  the  displacement  finite  element  method  was  unable  to  predict  the  accurate 
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stress  distribution  on  an  excavated  surface.  A new  model  utilizing  the  stresses  at  Gauss 
(integration)  points  has  been  proposed  and  verified.  A one-dimensional  bar  element 
which  can  be  installed  or  removed  was  also  included  for  modeling  tie-backs  and  other 
reinforcement  such  as  struts,  anchors  and  braces.  Unloading  is  generally  associated 
with  construction  sequences.  To  solve  nonlinear  problems  with  unloading,  difficulties 
may  arise  when  the  tangent  stiffness  method  is  used.  A mixed  tangent  stiffness  method 
which  can  detect  unloading  and  converge  as  fast  as  the  tangent  stiffness  method  was 
proposed. 

An  attempt  was  made  to  use  the  discrete  element  method  to  solve  the  U-frame 
structures  using  the  soil  response  curves  generated  from  the  finite  element  program 
FEMCON.  It  is  found  that  these  curves  need  to  be  adjusted  in  order  that  the  discrete 
element  solution  to  be  compatible  with  the  finite  element  solution.  It  is  also  found  that, 
to  obtain  finite  element  solutions  to  problems  solved  by  the  limit  equilibrium  approach, 
new  plasticity  interface  models  are  required. 

A variety  of  soil  mechanics  problems  was  solved  to  verify  the  formulation  and 
computer  program.  Two  field  problems  were  analyzed  to  evaluate  the  formulation  and 
program  with  respect  to  practical  problems. 

Conclusions 

Based  on  the  numerical  predictions  of  a variety  of  typical  soil  mechanics 
problems,  which  showed  satisfactory  comparisons  with  results  from  other  numerical 
schemes  and  experimental  observations,  it  is  felt  that  the  finite  element  procedure  and 
program  presented  herein  can  provide  a general  solution  scheme  for  the  two- 
dimensional  soil-structure  interaction  problems. 

Due  to  the  broad  analytical  scope  of  the  work,  conclusions  about  nonlinear 
behavior  for  U-frame  structures  in  elastic-plastic  medium  will  not  be  drawn  at  this 
time.  Before  such  conclusions  are  drawn,  the  available  and  newly  developed  constitutive 
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models  should  be  incorporated  into  the  computer  program  and  then  more  detailed  studies 
should  be  made  using  the  computer  program  in  conjunction  with  existing  experimental 
data  and  as  an  aid  to  planned  experimental  tests. 

Use  of  the  finite  element  method  in  geomechanics  problems  is  not  new,  but  this 
study  is  one  of  the  first  to  incorporate  nonlinear  material  behavior,  nonlinear  geometric 
effect,  soil-structure  interaction  and  simulation  of  construction  sequences  into  one 
efficient  finite  element  program.  It  is  believed  that  since  the  real  soil-structure 
problems  generally  are  constructed  in  sequences  and  soil  is  highly  associated  with 
nonlinear  material  and  geometric  behavior,  the  method  presented  herein  will  have  a high 
potential  for  continued  research  and  application. 

Recommendations  for  Future  Study 

The  program  was  intended  to  be  capable  of  simulating  real  soil-interaction 
problems  including  construction  sequences.  There  are,  however,  some  modifications 
that  could  be  made  in  order  to  make  the  program  more  convenient  and  powerful  to  the 
user.  Several  possible  modifications  are 

1.  Add  a restart  option.  The  analysis  of  a particular  problem  may  be 
discontinued  at  any  prescribed  points  and  then  resumed  in  a later  analysis  through  the 
use  of  the  restart  option. 

2.  Add  more  constitutive  soil  models.  Not  all  soil  behaviors  can  be  represented 
by  the  soil  models  implemented. 

3.  Add  more  one-  and  two-dimensional  elements  in  the  element  library  for  much 
more  flexible  domain  discretization. 

4.  Add  interactive  computer  graphics  to  speed  up  the  time-consuming  process  of 
accurate  data  preparation  and  output  interpretation. 

Although  computer  program  FEMCON  can  only  solve  two-dimensional  problems  at 
present,  it  has  the  capability  of  being  expanded  to  include  three-dimensional  problems 
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by  simply  adding  three-dimensional  elements  and  using  three-dimensional  constitutive 
models. 

Finally,  the  scope  of  this  study  was  limited  to  the  time-independent  static 
elastic-plastic  analysis  of  structures  in  soil  medium.  However,  many  soil-structure 
interaction  problems  have  important  time-varying  creep  and  time-dependent  dynamic 
characteristics  and  sometimes  may  be  required  to  consider  the  steady  state  and  transient 
state  seepage.  The  work  done  in  this  research  could  serve  as  a guide  for  efforts  to  extend 
the  nonlinear  analysis  technique  to  include  these  effects. 
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APPENDIX  A 


MOHR-COULOMB  ELASTIC-PLASTIC  CONSTITUTIVE  MATRIX 


This  appendix  derives  implicitly  the  elastic-plastic  constitutive  matrix  for  the 
Mohr-Coulomb  model.  The  matrix  is  obtained  from  equation  4.26,  4.29  and  4.30  by 
proper  mathematical  manipulation. 
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For  the  plane-strain  case,  equation  4.26  can  be  expressed  in  matrix  form  as 
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The  partials  in  equation  A.3  are  found  by  differentiating  equation  4.29. 
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APPENDIX  B 


CAP  MODEL  CONSTITUTIVE  MATRIX 


This  appendix  derives  implicitly  the  elastic-plastic  constitutive  matrix  for  the 
Cap  model.  The  matrix  is  obtained  from  equation  4.26,  4.38,  4.39,  4,40  and  4.41  by 
proper  mathematical  manipulation. 
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For  the  plane-strain  case,  equation  4.26  can  be  expressed  in  matrix  form  as 
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Depending  on  the  stress  state,  the  partials  in  equation  B.3  are  found  by 
differentiating  equation  4.38  or  4.39.  For  the  case  where  the  stress  state  is  on  the 
failure  surface, 
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For  the  case  where  the  stress  state  is  on  the  hardening  cap  surface, 
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8F/8k  will  be  derived  in  next  paragraph.  The  rest  of  partials  can  be  found  from  equation 
B.1 0 to  B.16. 

3F/3k  can  be  found  by  differentiating  equation  4.39  and  4.40. 
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The  Partials  in  equation  B.4  can  be  found  by  differentiating  equation  4.41  and 
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It  should  be  noted  that  the  second  term  in  the  denominator  of  equation  B.1  is  only 
needed  when  the  stress  state  in  on  the  Cap  surface. 


APPENDIX  C INPUT  GUIDE 


Conventions 

To  each  functional  block  corresponds  a number  of  records  to  be  read: 

( 1 ) a header  record  containing  the  name  of  a functional  block; 

(2)  a record  with  parameters,  if  needed; 

(3)  additional  records  containing  other  quantities,  if  necessary. 
All  the  header  records  use  the  same  format: 


Variable 

Columns 

Format 

Default 

Description 

BLOC 

1-4 

A4 

Name  of  block  to  be  executed 

M 

5-10 

16 

0 

Parameter  controlling  amount  of 
output  printing  (M=0,  1,  2,  or  3) 

In  general,  all  integer  variables  are  read  under  15  format,  and  real  variables,  under 
F10.0  format. 


Block  'IMAG' 

Function:  Output  of  all  inputted  quantities  (optional,  but  must  be  the  first  block  if 
used). 

Input:  one  record  with  the  word  'IMAG'. 

Block.  :qqmc 

Function:  Output  of  comments  (optional,  but  can  be  used  at  any  time). 

Input:  ( 1 ) one  record  with  the  word  'COMT' 

(2)  comment  records  (maximum  length  of  80  characters),  must  be 
terminated  with  a blank  record. 
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Block  'COOR' 


Function:  Reading  of  coordinates  and  number  of  degrees  of  freedom  of  all  the  nodes. 
Input:  (1)  one  record  with  the  word 'COOR' 

(2)  one  record  of  parameters; 


Variable 

Columns  Format  1 

Default 

Description 

NNT 

1-5 

15 

20 

Maximum  number  of  nodes 

NDLN 

6-10 

15 

2 

Maximum  number  of  DOF  per  node 

NDIM 

11-15 

15 

2 

Number  of  dimensions  (1,  2,  or  3) 

FAC(1 ) 

1 6-25 

FI  0.0 

1.0 

Scaling  factor  in  direction  x 

FAC(2) 

26-35 

FI  0.0 

1.0 

Scaling  factor  in  direction  y 

FAC(3) 

36-45 

FI  0.0 

1.0 

Scaling  factor  in  direction  z 

YWAT 

46-55 

FI  0.0 

0.0 

Y coordinate  of  the  existing  water 
table 

(3) 

i series  of  records  for  nodes;  terminated  by  a record  on  which 
INI  .LE.  0,  each  record  may  generate  many  nodes. 

INI 

1-5 

15 

- 

Number  of  the  first  node  to  be 
generated 

XI  (1 ) 

6-15 

FI  0.0 

- 

x coordinate 

XI  (2) 

1 6-25 

FI  0.0 

- 

y coordinate 

XI  (3) 

26-35 

FI  0.0 

- 

z coordinate 

IN2 

36-40 

15 

INI 

Number  of  the  last  node  to  be 
generated 

X 2 ( 1 ) 

41-50 

FI  0.0 

xi(i) 

x coordinate 

X2(2) 

51-60 

FI  0.0 

XI  (2) 

y coordinate 

X2(3) 

61-70 

FI  0.0 

XI  (3) 

z coordinate 

INCR 

71-75 

15 

1 

Pitch  of  node  numbers 

IDLN 

76-80 

15 

NDLN 

Number  of  DOF  generated  if  different 
from  default  (NDLN) 

Remarks 

(A) 

The  number  of  degrees  of  freedom  of  a node  must  be  coherent  with  the 
number  of  freedoms  at  a node  for  a given  element 

(B) 

If  the  nodes  are  all  entered  with  no  generation  parameters,  IN2  to  IDLN 

(columns  36-80)  are  left  null. 
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biqcL’C.qnd: 


Function:  Reading  of  boundary  conditions  (required). 

Input:  ( 1 ) one  record  with  the  word  'COND'; 

(2)  groups  of  two  records  terminated  by  a blank  record: 

a.  one  header  record  for  each  group  of  boundary  conditions; 

Variable  Columns  Format  Default  Description 


1-10  1011  - For  each  degree  of  freedom 

(maximum  10) 

0 if  free 

1 if  prescribed 

11-80  7F10.0  - Values  for  prescribed  DOF  in  the 

same  order  as  ICOD,  the  number  of 
values  read  in  V equal  to  maximum 
degrees  of  freedom  per  node(NDLN) 

b.  one  record  for  nodal  numbers. 


KV  1-80  1615  - Node  numbers  which  must  be 

terminated  by  zero.  If  all  16 
values  are  non-zero,  reading  will 
continue  on  the  following  record. 


ICOD 

V 


Remark 

The  list  of  values  V can  be  continued  with  additional  records  of  format  (10X, 
7E10.0).  The  list  of  nodal  numbers  KV  can  also  be  continued  with  additional  records  of 
format  (1615). 
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Block  'PREL' 


Function:  Reading  of  element  material  properties  (required). 
Input:  (1)  one  record  with  the  word 'PREL'; 

(2)  one  record  of  parameters; 


Variable 

Columns 

Format 

Default 

Description 

NGPE 

1-5 

15 

0 

Number  of  groups  of  element 
material  properties 

NPRE 

6-10 

15 

0 

Number  of  linear  properties 
per  group 

NPRM 

11-15 

15 

0 

Number  of  nonlinear  properties 
per  group 

ROWA 

1 6-25 

FI  0.0 

62.4 

Unit  weight  of  water 

BKWA 

26-35 

FI  0.0 

2.50D5 

Bulk  modulus  of  water 

ATMP 

36-45 

FI  0.0 

14.7 

Atmospheric  pressure 

(3)  series  of  records  of  group  properties  terminated  by  a record  in  which 
IGPE  .LE.  0. 

IGPE 

1-5 

15 

Group  number 

MODEL 

6-8 

13 

0 

Nonlinear  model  number 

0 = Linear 

1 = Various  modulus 

2 = Mohr-Columb  plasticity 

3 = Drucker-Prager  plasticity 

4 = Sandler-Cap  plasticity 

IFEL 

9-10 

12 

0 

Interface  element  number 

0 = Regular  element 

1 = Interface  element 

VI 

11-80 

7F10.0 

- 

Successive  values  of  properties 

Remarks 

(A)  NPRE  must  be  equal  to  the  maximum  number  of  linear  material 
properties  required  by  the  element  used. 

(B)  NPRM  must  be  equal  to  the  maximum  number  of  parameters  of  the  models 
required  by  the  element  used  in  the  problem. 

(C)  If  NPRE+NPRM  .GT.  7,  the  list  of  properties  VI  is  continued  with 
additional  records  of  format  (5X.7F10.0). 


Block  'ELEM' 


Function:  Reading  of  elements  (connectivities)  (required). 
Input:  (1)  one  record  with  the  word 'ELEM'; 

(2)  one  record  of  parameters; 


Variable 

Columns 

Format 

Default 

Description 

NELT 

1-5 

15 

Maximum  number  of  elements 

NNEL 

6-10 

15 

8 

Maximum  number  of  nodes 
per  element 

NKEL 

11-15 

15 

1 

Number  of  problem  type  by  default 

NTPE 

1 6-20 

15 

1 

Number  of  element  type  by  default 

NSDG 

21-25 

15 

0 

= 0 if  no  saturated  elements 
= 1 if  saturated  elements 

NLAG 

26-30 

15 

0 

= 0 for  small  deformation  and 
small  strain 

= 1 for  large  deformation  and 
large  strain 

NSYM 

31-35 

15 

0 

= 0 if  matrix  KG  symmetrical 
= 1 if  matrix  KG  non-symmetrical 

NIDENT 

36-40 

15 

0 

= 1 if  all  element  stiffness 
matrices  are  identical 

(3)  element  records  terminated  by  a record  in  which  IEL.LE.0.  Each 
record  may  generate  more  than  one  element. 


IEL 

1-5 

15 

- 

Number  of  the  first  element 

IGEN 

6-10 

15 

1 

Total  number  of  elements  to  be 
generated 

INCR 

11-15 

15 

1 

Nodal  number  pitch  for  automatic 
generation 

IKEL 

1 6-20 

15 

NKEL 

= 1 for  plane  stress 
= 2 for  plane  strain 
= 3 for  axisymmetrical 

ITPE 

21-25 

15 

NTPE 

Element  type  number  if  different 
from  NTPE 

IGPE 

26-30 

15 

1 

Element  properties  group  number 

ISDE 

31-35 

15 

NSDE 

= 0 if  not  saturated 
= 1 if  saturated 

KNE 

36-80 

915 

Nodal  numbers  of  the  element, 
terminated  by  a zero  node  number 
(order  must  follow  convention) 
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Block  'CONIC' 

Function:  Reading  of  concentrated  loads  (optional). 

Input:  ( 1 ) one  record  with  the  word  'CONC'; 

(2)  groups  of  two  records  terminated  by  a blank  record: 
a.  one  header  record  per  group  of  forces; 


Variable 

Columns 

Format  Default 

Description 

IG 

1-5 

15 

Group  number 

V 

6-75 

7F10.0 

Load  values  for  each  degree  of 

freedom 

b.  one  record  with  node  numbers; 

1-80  1615  - Node  numbers  so  loaded,  terminated 

with  a zero  node  number 

List  V can  be  continued  on  additional  records  of  format  (5X.7F10.0). 

List  KV  can  be  continued  on  additional  records  of  format  (1615). 

Block  'BODY' 

Function:  Computation  and  assemblage  of  distributed  loads  (optional). 

Input:  one  record  with  the  word  'BODY'. 

Block  'IN.S.L 

Function:  Computation  and  assemblage  of  distributed  loads  in  a problem  with 
construction  sequences  (required). 

Input:  one  record  with  the  word  'INSI'. 


KV 

Remarks 

(A) 

(B) 
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Block  'LOAD' 

Function:  Reading  of  concentrated  loads  in  a problem  with  construction  sequences 
(optional). 

Input:  (1)  one  record  with  the  word 'LOAD'; 

( 2 ) see  input  (2)  in  BLOCK  'CONC'. 

Block  'DWAT' 

Function:  Computation  and  assemblage  of  equivalent  nodal  loads  due  to  dewatering  in  a 
problem  with  construction  sequences  (optional). 

Input:  (1)  one  record  with  the  word 'DWAT'; 

( 2 ) one  record  of  parameters 


Variable 

Columns 

Format 

Default  Description 

NELS 

1-5 

15 

Number  of  elements  dewatered 

(3)  series  of  records  for  elements;  terminated  by  a record  on  which 
IEL  .LE.  0. 


IEL  1-5  15  - Number  of  the  first  element 

IGEN  6-10  15  - Number  of  elements  to  be  generated 

1NCR  11-15  15  - Pitch  of  the  element  numbers 
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eiQck.'EXGA: 

Function:  Computation  and  assemblage  of  equivalent  nodal  loads  due  to  excavation  in  a 
problem  with  construction  sequences  (optional). 

Input:  (1 ) one  record  with  the  word  'EXCA'; 

(2)  one  record  of  parameters; 


Variable 

Columns 

Format 

Default  Description 

NELS 

1-5 

15 

Number  of  elements  excavated 

(3)  one  record  with  the 

"air"  element  group  number; 

IGPE 

6-10 

15 

Group  number  of  "air"  element 

(4)  series  of  records  for  elements;  terminated  by  a record  on  which 

IEL  .LE.  C 

i; 

IEL 

1-5 

15 

Number  of  the  first  element 

IGEN 

6-10 

15 

Number  of  elements  to  be  generated 

INCR 

11-15 

15 

Pitch  of  the  element  numbers 

Remark 

The  elastic  modulus  for  the  "air"  element  is  recommended  to  have  a value  of 
10E-5  when  a problem  deals  with  excavation  and  embankment. 
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Block  'EMBA' 


Function:  Computation  and  assemblage  of  equivalent  nodal  loads  due  to  embankment  in  a 
problem  with  construction  sequences  (optional). 

Input:  (1)  one  record  with  the  word 'EMBA'; 

(2)  one  record  of  parameters; 

Variable  Columns  Format  Default  Description 


NELS  1-5  15  - Number  of  elements  added 

(3)  series  of  records  for  elements;  terminated  by  a record  on  which 
IEL  .LE.  0; 


IEL 

1-5 

15 

- 

Number  of  the  first  element 

IGEN 

6-10 

15 

- 

Number  of  elements  to  be  generated 

INCR 

11-15 

15 

- 

Pitch  of  the  element  numbers 

IGPE 

1 6-20 

15 

- 

Group  number  of  element  property 
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Block  'FWAT' 

Function:  Computation  and  assemblage  of  equivalent  nodal  loads  due  to  the  raise  of  water 
table  in  a problem  with  construction  sequences  (optional). 

Input:  (1)  one  record  with  the  word 'FWAT' 

(2)  one  record  of  parameters: 


Variable 

Columns 

Format  Default 

Description 

NELS 

1-5 

15 

Number  of  elements  saturated 

(3)  series  of  records  for  elements; 

terminated  by  a record  on  which 

IEL  .LE.  0. 

IEL 

1-5 

15 

Number  of  the  first  element 

IGEN 

6-10 

15 

Number  of  elements  to  be  generated 

INCR 

11-15 

15 

Pitch  of  the  element  numbers 

Remark 

If  the  water  table  rises  high  enough,  the  water  pressure  may  act  against  the 

structure  built  in  the  soil  medium.  In  this  case,  it  is  necessary  to  find  the  equivalent 

nodal  load  acting  on  the  structure  due  to  the  water  pressure  and  the  loading  vector  can  be 
generated  using  Block  'FWAT'  and  Block  'CONC'. 
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Block  'BARA' 

Function:  Installation  of  bar  elements  in  a problem  with  construction  sequences 
(optional). 

Input:  (1)  one  record  with  the  word 'BARA'; 

(2)  one  record  of  parameters; 


Variable 

Columns 

Format 

Default  Description 

NELS 

1-5 

15 

Number  of  elements  added 

(3) 

series  of  records  for  elements;  terminated  by  a record  on  which 

IEL  .LE. 

0. 

IEL 

1-5 

15 

Element  number 

IGPE 

6-10 

15 

Group  number  of  element  property 

Remark 

This  is  the  only  loading  block  that  does  not  come  with  an  execution  block. 

BIqcKJBAEJZ 

Function:  Removal  of  bar  elements  in  a problem  with  construction  sequences(optional). 
Input:  (1)  one  record  with  the  word 'BARD'; 

(2)  one  record  of  parameters; 


Variable 

Columns 

Format 

Default  Description 

NELS 

1-5 

15 

Number  of  elements  deleted 

(3)  series  of  records  for  elements;  terminated  by  a record  on  which 
IEL  .LE.  0. 


IEL 


1-5 


15 


Element  number 
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Block  'LINM' 


Function:  Assemblage  and  solution  of  an  in-core  linear  problem  (optional). 
Input:  one  record  with  the  word  'LINM'. 

Block  'NLIN' 

Function:  Assemblage  and  solution  of  an  in-core  nonlinear  problem  (optional). 
Input:  (1 ) one  record  with  the  word  'NLIN'; 

(2)  one  record  of  parameters 

Variable  Columns  Format  Default  Description 


DPAS 

1-10 

FI  0.0 

0.2 

Load  increment 

NPAS 

11-15 

15 

1 

Number  of  identical  load  increments 

NITER 

1 5-20 

15 

5 

Number  of  iterations  per  step 

IMETH 

21-25 

15 

4 

Iteration  method: 

1 - computation  of  KG  for  each 

iteration 

2 - KG  constant 

3 - computation  of  KG  at  start  of 

each  step 

EPSDL 

31-40 

FI  0.0 

0.01 

Admissible  error  of  norm 

OMEGA 

41-50 

FI  0.0 

1.0 

Over-relaxation  factor 

IELS 

51-55 

15 

0 

Index  for  printing  specified  element 
solutions 

0 = no 

1 = yes 

IEQL 

56-60 

15 

0 

Index  for  computing  equivalent  nodal 
loads  of  the  specified  elements 

0 = no 

1 = yes 

(3)  one  record 

of  element  numbers  if 

IELS  = 1. 

NSOL 

1-80 

1 615 

- 

Specified  element  numbers 

Block  'LIND' 

Function:  Assemblage  and  solution  of  an  out  of  core  linear  problem  with  a partitioned 
matrix  stored  in  a mass  storage  device  (optional). 


Input: 


one  record  with  the  word  'LIND'. 
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Function: 


Input: 


Function: 

Input: 


Variable 


NELS 


IEL 

IGEN 

INCR 


Function: 

Input: 


Function: 


Block  'NLND' 

Assemblage  and  solution  of  an  out  of  core  nonlinear  problem  with  a 
partitioned  matrix  stored  in  a mass  storage  device  (optional). 

( 1 ) one  record  with  the  word  'NLND'; 

(2)  see  input  (2)  in  BLOCK  'NLIN'. 

Block  'PRNT' 

Printing  solutions  for  specified  elements  (optional). 

( 1 ) one  record  with  the  word  'PRNT'; 

(2)  one  record  of  parameters; 

Columns  Format  Default  Description 

1-5  15  - Number  of  elements  to  be  printed 

(3)  series  of  records  for  elements;  terminated  by  a record  on  which 
IEL  .LE.  0. 

1-5  15  - Number  of  the  first  element 

5-10  15  - Number  of  elements  to  generate 

11-15  15  - Pitch  of  the  element  numbers 


Block  'PLOT' 

Creating  a output  data  file  to  draw  the  deformed  structure  (optional), 
one  record  with  the  word  'PLOT'. 

Plock  'STQE1 


End  (required). 

one  record  with  the  word  'STOP'. 


Input: 


APPENDIX  D FORTRAN  LISTING  OF  COMPUTER  PROGRAM  FEMCON 


FEMCON88  (2-D  FINITE  ELEMENT  PROGRAM)  HSI-CHI  YANG,  July  1988 

FEMCON  (FINITE  ELEMENT  METHOD  WITH  CONSTRUCTION  SEQUENCES)  IS 
INTENTED  FOR  2-D  NONLINEAR  ANALYSES  OF  SOIL-STRUCTURE  INTERACTION 
PROBLEMS  WITH  OR  WITHOUT  CONSTRUCTION  SEQUENCES.  IT  CONSIDERS 
BOTH  MATERIAL  AND  GEOMETRIC  NONLINEARITIES. 

MAIN  PROGRAM 


IMPLICIT  R£AL*8(A-H,0-Z) 

CHARACTER*4  BLOC, BLOCS 
COMMON/ALLO/NVA , IVA , IVAMAX, NREEL , NTBL 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON  VA(20000 ) 

DIMENSION  BLOCSC28) 

DATA  BLOCS/ 'IMAG' ,'COMT' , ' COOR ' ,'COND' , 'PREL' ,’ELEM' 

1 ' BODY ' , ' INSI ' , ' DWAT ' , ' EXCA ' , ' EMBA ' , ' BARA ' 

2 'LOAD' ,'FWAT' ,'LINM' ,'NLIN' , 'LIND' ,'NLND' 

3 'PLOT','....','....','....', '....', 

DATA  NB/28/ 


,'CONC  , 
, 'BARD' , 
,'PRNT' , 

, 'STOP'/ 




OPEN(MR,FILE=' INPUT. DAT' ) 

OPEN (MP,FILE=' OUTPUT. DAT' , STATUS= ' NEW' ) 


c 

OPEN (Ml ,FILE='M1 .DAT' ,STATUS= ' NEW' ) 

REWIND  MR 

LENGTH  OF  BLANK  COMMON  IN  REAL  WORDS  (TABLE  VA) 

c 

NVA=20000 
HEADING 

2000 

WRITE(MP,2000) 

FORMAT ( ' 1 ' ,30X,  'UFRAME88V28X, 'HSI-CHI  YANG'/23X,  22 ( '- 

')//) 

C 

READ  BLOCK  TITLE 

10 

READ(MR, 1000)  BLOC,M 

1000 

FORMAT (A4, 16) 

c 

SEARCH  FOR  THE  BLOCK  TO  BE  EXECUTED 

20 

DO  20  1=1, NB 

IF(BLOC.EQ.BLOCSU) ) GO  TO  30 
CONTINUE 

2010 

WRITE(MP,2010) 

FORMAT ( ' **  ERROR,  MISSING  BLOCK  CALLING  CARD') 

30 

GO  TO  10 

GO  TO  (110,120,130,140,150,160,170, 

1 180,190,200,210,220,230,240, 

2 250,260,270,280,290,300,310, 

3 320, 330, 340, 350, 360, 370, 999), I 
BLOCK  TO  PRINT  IMAGES  OF  DATA  CARDS 

'IMAG' 

110 

CALL  BLIMAG 

c 

GO  TO  10 

BLOCK  TO  READ  AND  PRINT  COMMENTS 

'COMT' 

120 

CALL  BLCOMT 

c 

GO  TO  10 

BLOCK  TO  READ  NODAL  POINTS  COORDINATES 

'COOR' 

180 


181 


130 

c — 

140 

C 

150 

C — 

160 

C — 

170 

C 

180 

C 

190 

C 

200 

C 

210 

220 

C 

230 

C 

240 

250 

C 

260 

C 

270 

C 

280 

C 

290 

C 

300 


CALL  BLCOOR 
GO  TO  10 

3L0CK  TO  READ  BOUNDARY  CONDITIONS 

CALL  BLCOND 
GO  TO  10 

BLOCK  TO  READ  ELEMENT  PROPERTIES 

CALL  BLPREL 
GO  TO  10 

BLOCK  TO  READ  ELEMENT  DATA 

CALL  BLELEM 
GO  TO  10 

block  TO  READ  CONCENTRATED  LOADS(NON-CONSTRUCTION) 
CALL  BLCONC 
GO  TO  10 

block  to  READ  BODY  LOADS(NON-CONSTRUCTION) 

CALL  BLBODY 
GO  TO  10 

BLOCK  TO  READ  INSITU  DATA 

CALL  BLINSI 
GO  TO  10 

BLOCK  TO  READ  DEWATER  DATA 

CALL  BLDWAT 
GO  TO  10 

BLOCK  TO  READ  EXCAVATION  DATA 

CALL  BLEXCA 
GO  TO  10 

BLOCK  TO  READ  EMBANKMENT  DATA 

CALL  BLEMBA 
GO  TO  10 

BLOCK  TO  READ  ADDING-BARS  DATA 

CALL  BLBARA 
GO  TO  10 

BLOCK  TO  READ  DELETING-BARS  DATA 

CALL  BLBARD 
GO  TO  10 

BLOCK  TO  READ  CONCENTRATED  LOADING  DATA 

CALL  BLLOAD 
GO  TO  10 

BLOCK  TO  READ  RAISING-WATER-TABLE  DATA 

CALL  BLFWAT 
GO  TO  10 

BLOCK  FOR  IN  CORE  ASSEMBLING  AND  LINEAR  SOLUTION 

CALL  BLLINM 
GO  TO  10 

BLOCK  FOR  IN  CORE  ASSEMBLING  AND  NONLINEAR  SOLUTION 

CALL  BLNLIN 
GO  TO  10 

BLOCK  FOR  ON  DISK  ASSEMBLING  AND  LINEAR  SOLUTION 
CALL  BLLIND 
GO  TO  10 

BLOCK  FOR  ON  DISK  ASSEMBLING  AND  NONLINEAR  SOLUTION 
CALL  BLNLND 
GO  TO  10 

— BLOCK  TO  PRINT  SOLUTIONS  FOR  SPECIFIED  ELEMENTS 


'COND' 

'PREL' 

'ELEM' 

' CONC ' 

'BODY' 

'INSI' 

' DWAT ' 

' EXCA ' 
'EMBA' 
'BARA' 
'BARD' 
'LOAD' 

' FWAT ' 
'LINM' 
'NLIN' 
'LIND' 
'NLND' 

' PRNT ' 
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310  CALL  BLPRNT 
GO  TO  10 

C BLOCK  TO  PLOT  GEOMETRIC  (DEFORMED)  MESH  'PLOT' 

320  CALL  BLPLOT 
GO  TO  10 
330  CONTINUE 
GO  TO  10 
340  CONTINUE 
GO  TO  10 
350  CONTINUE 
GO  TO  10 
360  CONTINUE 
GO  TO  10 
370  CONTINUE 
GO  TO  10 

C— — END  OF  PROBLEM  'STOP' 

999  WRITE( MP, 2020 ) IVAMAX,NVA 

2020  FORMAT (/ /'  END  OF  PROBLEM,  ',110,'  UTILIZED  REAL  WORDS  OVER  ’,110) 
STOP 
END 

BLOCK  DATA 

C INITIALIZE  LABELLED  COMMONS 

IMPLICIT  REAL*8 ( A-H , O-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/COND/NCLT , NCLZ , NCLNZ 
COMMON/PREL/NGPE , NPRE , NPRM, NMNL , NHIS 

COMMON/ELEM/NELT , NNEL, NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM , NELS 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG , INLN 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/ALLO/NVA , IVA , IVAMAX , NREEL , NTBL 

COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP, LCODE, LINTF , LP  REG , LLD , LLOCE , 

1 LCORE, LNE , LP  REE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES,LDLG,LNELS,LEB,LPB 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 
C0MM0N/TVL2/FAC( 3 ) 

C0MM0N/TVL3/YWAT , ROWA , BKWA , ATMP 
DIMENSION  LXX(26) 

EQUIVALENCE  (LXX( 1 ) ,LCORG) 

C COMMON  /COOR/ 

DATA  NNT/20/ , NDLN/2/ , NDIM/2/ 

C COMMON  /PREL/ 

DATA  NGPE/0/ , NPRE/0/ , NPRM/0/ , NMNL/O/ , NHIS/0/ 

C COMMON  /ELEM/ 

DATA  NNEL/8/ , NKEL/ 1 / , NTPE/ 1 / , NSDG/O/ , NLAG/0/ , NIDENT/0/ , NELS/0/ 

C COMMON  /ASSE/ 

DATA  NSYM/0/ 

C COMMON  /RGDT/ 

DATA  ITPE 1/0/, ISDE/0/ 
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C COMMON  /NLIN/ 

DATA  EPSDL/1 . D-2/ , OMEGA/ 1 . DO/ , DPAS/ . 2D0/ , NPAS/ 1 / , NITER/5/ , IMETH/4/ 
C COMMON  /NUMB/ 

DATA  M1/1/,ME/2/,M3/3/,M4/4/,MR/11/,MP/12/,M7/7/,MS/S/,M9/9/, 

1 MH/ 10/ 

C COMMON  /ALLO/ 

DATA  IVA/ 1 / , IVAMAX/1 / , NT8L/28/ 

C DEFINE  HERE  THE  NUMBER  OF  INTEGERS  CONTAINED  IN  A REAL 

C FOR  THE  COMPUTER  EMPLOYED 

C EXAMPLES:  AT&T  SIMPLE  PRECISION  NREEL.EQ. 1 

C AT&T  DOUBLE  PRECISION  NREEL.EQ. 2 

C CDC  NREEL.EQ. 1 

DATA  NREEL/2/ 

C COMMON  /LOCA/ 

DATA  LXX/26*1 / 

C COMMON  /SEQU/ 

DATA  NSEQ/O/ , NSEQO/O/ , ISEQ/O/ , IASSEL/1 / , IBAR/O/ 

C COMMON  /TVL2/  AND  /TVL3/ 

DATA  FAC/3*1 . DO/ , YWAT/O . DO/ , ROWA/52. 4D0/ , BKWA/2 . 5D5/ , ATMP/1 4 . 7D0/ 
END 

SUBROUTINE  ERROR (IERR, II , 12, INIV) 

C PRINT  ERROR  MESSAGES  FOR  BLOCKS  READING  DATA 

COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 



C BLOCK  'COOR' 

IF(IERR.GT. 19)  GO  TO  200 
IEsIERR-10 

GO  TO  (1  10, 120, 130, 140, 150, 160, 160, 180) , IE 
110  WRITECMP, 2110)11, 12 

2110  FORMAT ( ' ***  ERROR,  FIRST  NODE  NUMBER (', 14 ,' ) IS  GREATER  THAN  NNT= 
1 ' ,14) 

GO  TO  900 

120  WRITECMP, 2120)11, 12 

2120  FORMAT ( ' **  ERROR,  SECOND  NODE  NUMBERC ' ,14, ' ) IS  GREATER  THAN  MNT= 
1 ' ,14) 

GO  TO  900 

130  WRITECMP, 2130)11, 12 

2130  FORMAT ( ' **  ERROR,  NODAL  NUMBER  OF  D.O.F. ( ' , 14, ' ) IS  GREATER  THAN 
1NDLN= ' ,14) 

GO  TO  900 

140  WRITECMP, 2140) 

2140  FORMAT ( ' **  ERROR,  FIRST  AND  SECOND  NODE  NUMBERS  ARE  INCOMPATIBLE 
1WITH  THE  GENERATION  PARAMETER') 

GO  TO  900 

150  WRITECMP, 2150)11 

2150  FORMAT ( ' **  ERROR,  NODE  ',14,'  IS  DEFINED  MORE  THAN  ONCE') 

GO  TO  900 

160  WRITECMP, 2160)11 

2160  FORMAT ( ' **  ERROR,  NODE  ',14,'  IS  NOT  DEFINED') 

GO  TO  900 

180  WRITECMP, 2180)12, II 

2180  FORMAT ( ' **  ERROR,  GENERATED  NODES  NUMBER (',  14, ' ) IS  LESS  THAN  NNT 
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1=' ,14) 

GO  TO  900 

200  IF ( IERR .GT. 29 ) GO  TO  300 
GO  TO  900 

C BLOCK  'COND' 

300  IFUEER.GT.39)  GO  TO  400 
IE=IERR-30 

GO  TO  (900,320,900) , IE 
320  WRITECMP, 2320)11, 12 

2320  FORMAT ( ' **  ERROR,  NODE  NUMBER (', 14 ,' ) IS  GREATER  THAN 
1 NNT= ' ,14) 

GO  TO  900 

C BLOCK  'PREL' 

400  IF(IERR.GT.49)  GO  TO  500 
IE=IERR-40 
GO  TO  (410, 900), IE 
410  WRITECMP, 2410)11, 12 

2410  ^ FORMAT ( * **  ERROR,  GROUP  NUMBER  (',13,')  IS  GREATER  THAN  NGPE=’,I3 
GO  TO  900 

C BLOCK  'ELEM' 

500  IFCIERR.GT.59)  GO  TO  900 
IE=IERR-50 

GO  TO  (510, 900, 530, 540, 550, 560, 570), IE 
510  WRITECMP, 2510)11, 12 

2510  FORMAT ('  **  ERROR,  NUMBER  OF  NODES  (',13,')  IS  GREATER  THAN  NNEL= ' 
1,13) 

GO  TO  900 

530  WRITECMP, 2530)11, 12 

2530  FORMAT ( ' **  ERROR,  PROPERTY  NUMBER  (',13,')  IS  GREATER  THAN  NGPE= ' 
1,13) 

GO  TO  900 

540  WRITECMP, 2540)11, 12 

2540  FORMAT ('  **  ERROR,  EL.  BEHAVIOR  # (',13,')  IS  GREATER  THAN  NSDG= ' 
1,13) 

GO  TO  900 

550  WRITECMP, 2550)11, 12 

2550  FORMAT C ' **  ERROR,  ELEMENT  NUMBER  (',14,')  IS  GREATER  THAN  NELT- ' 
114) 

GO  TO  900 
560  GO  TO  320 
570  WRITECMP, 2570)11, 12 

2570  FORMAT ( ' **  ERROR,  NUMBER  OF  ELEMENTS  (',14,')  IS  GREATER  THAN  NEL 
1 T= ' ,14) 

c END 

900  11=12 

IF( INIV.GE. 2)  STOP 

RETURN 

END 

SUBROUTINE  ESPACECILONG, IREEL,TBL,IDEB) 

C TO  ALLOCATE  A REAL  OR  INTEGER  TABLE  IN  ARRAY  VA 
C INPUT 

c ILONG  LENGTH  OF  THE  TABLE  TO  BE  ALLOCATED 
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C 

C 

C 

r 

U 

c 

c 

c 

c== 


c 

r. 


■ C 

C.  . . 

C 

C 

C 

C 

C 

C 

10 

2000 


C- 

20 


2010 

c 


30 

40 

50 


C=== 


(IN  REAL  OR  INTEGER  WORDS) 

TABLE  TYPE  : 

.EQ.O  INTEGER 

. EQ. 1 REAL 

NAME  OF  THE  TABLE  (A4) 

TABLE  TO  BE  ALLOCATED  STARTS  IN  VA(IDEB) 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

CHARACTER*4  TBL 

COMMON/NUMB/M , Ml , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/ ALLO/NVA , IVA, IVAMAX, NREEL , NTBL 
COMMON  VA(20000 ) 

DIMENSION  KA( 40000 ) 

EQUIVALENCE  (VA( 1 ) ,KA( 1 ) ) 

DATA  ZERO/O. DO/ 


CALCULATE  THE  TABLE  LENGTH  IN  REAL  WORDS 

ILGRrILONG 

IF(IREEL.EQ.O)  ILGR= (ILONG+NREEL-1 )/NREEL 
IVA 1 =IVA+ILGR 

CHECK  IF  ENOUGH  SPACE  IS  AVAILABLE 

IF ( IVA 1 . LE. NVA)  GO  TO  20 

...  AUTOMATIC  EXTENSION  OF  THE  BLANK  COMMON  IF  CORRESPONDING 
SYSTEM  COMMAND  EXIST  ON  THE  COMPUTER  USED 
CALL  EXTEND(IVAI.IERR) 

IF(IERR.EQ. 1 ) GO  TO  10 

NVArIVAl 

GO  TO  20 

ALLOCATION  ERROR  (NOT  ENOUGH  SPACE) 

WRITE (MP, 2000)  TBL, IVA 1, NVA 

FORMAT ('  ****  ALLOCATION  ERROR,  TABLE  ',A4/'  REQUIRED  SPACE: ',19,' 
1 REAL  WORDS,  AVAILABLE  SPACE: ',19,'  REAL  WORDS') 

STOP 

ALLOCATE  TABLE 

IDEB=IVA+1 

IVAsIVAl 

IF(IVA.GT. IVAMAX)  IVAMAX=IVA 
IF(M.GT.O)  WRITE (MP, 20 10)  TBL, IDEB, IVA1 

F0RMAT(60X, 'TABLE  ' , A4 , ' GOES  FROM  VAC, 17,')  TO  VAC, 17,')') 

INITIALIZE  THE  ALLOCATED  TABLE  TO  ZERO 

IlsIDEB 

IF(IREEL.EQ.O)  II =(I 1-1 ) *NREEL+1 

12=1 1+IL0NG-1 

IF(IREEL.EQ.O)  GO  TO  40 

DO  30  1=11,12 

VA(I )=ZERO 

RETURN 

DO  50  1=11,12 
KA( I )=0 
RETURN 
END 

SUBROUTINE  DSPACE ( IDEB, IREEL , TBL) 


IREEL 


T3L 

OUTPUT 

IDEB 


186 


TO  DELETE  A TABLE  FROM  VA,  FOLLOWED  BY  COMPACTING 
INPUT 

IDEB  FIRST  POSITION  OF  TABLE  TO  BE  FELETED 

IREEL  TABLE  TYPE  (SEE  ESPACE) 

TBL  NAME  OF  THE  TABLE  (A4) 


IMPLICIT  REAL*8 ( A-H , O-Z ) 

CHARACTER*4  TBL 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/ ALLO/NVA, IVA, IVAMAX, NREEL, NTBL 
COMMON/LOCA/LXX (26 ) 

COMMON  VA(20000) 


C SEARCH  FOR  THE  FIRST  POSITION  OF  NEXT  TABLE 

1 1=IVA+1 
DO  10  1=1, NTBL 
IF(LXX(I) .LE.IDEB)  GO  TO  10 
IF(LXX(I).LT.I1)  I1=LXX(I) 

10  CONTINUE 

C SHIFT  ALL  TABLES  AFTER  THIS 


ID=I 1-IDEB 

IF( 1 1 . EQ. IVA+1 ) GO  TO  40 
DO  20  1=1, NTBL 

IF(LXX(I) .GT.IDEB)  LXX (I )=LXX (I )-ID 


20  CONTINUE 

DO  30  1=11, IVA 
J =1— ID 

30  VA(J)=VA(I) 

C PRINT 

40  IVA=IVA-ID 


IF(M.GT.O)  WRITE (MP, 2000)  TBL, ID, IDEB 
2000  FORMAT(60X, 'DELETED  TABLE  ',A4,'  COMPACTING  ',17,’  REAL  WORDS  AFTE 
1 R VAC  ,17,')') 

RETURN 

END 

SUBROUTINE  BLIMAG 

C TO  CALL  AND  EXCUTE  BLOCK  'IMAG' 

C TO  PRINT  OUT  THE  IMAGE  OF  DATA  CARDS 

IMPLICIT  REAL*8 ( A-H , O-Z ) 

CHARACTER*4  CART 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/TVL 1 /CART ( 20 ) 

DATA  ICARTM/40/ 

WRITE (*,3000) 

3000  FORMAT ('  BLIMAG') 

WRITE(MP, 2000 ) 

2000  FORMAT(///, IX, 'IMAGE  OF  DATA  CARDS ' /I X, 28 ('  = '),/ ) 

WRITE(MP, 2005 ) 

2005  FORMAT (/ 

1 28X, ' C OLUMN  NUMBE  R ' ,/ , 10X, ' 1 ' , 9X , ' 2 ' , 9X, ' 3 ' , 9X, ' 4 ' , 

2 9X, ' 5 ' , 9X , '6' ,9X, '7 ' ,9X, '8' ,/, IX, 8( ' 1234567890 '),/, IX, 80( '-')) 
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ICART=0 

ICART1=0 

10  READ (MR, 1000,END=30)  CART 
1000  FORMAT ( 20 A4) 

ICART=ICART+1 
ICART1=ICART1+1 
IF ( I CART  1 . LE. ICARTM)  GO  TO  20 
WRITE (MP, 20 10) 

2010  FORMATC IX, 80 IX, 8('1 234567890 10X, »1 ',9X,' 2', 9X,» 3’, 

1 9X, ' 4 ' ,9X, ' 5 ' , 9X, 1 6 ' , 9X , ' 7 ' ,9X , ' 8 ' ,/ , 28X , 

2 'COLUMN  NUMBER') 

WRITE (MP, 2015) 

2015  FORMAT ( ' 1 ' ,// ) 

WRITE(MP, 2005 ) 

ICART 1 =0 

20  WRITE(MP, 2020 ) CART 
2020  FORMAT (IX, 20A4) 

GO  TO  10 

30  WRITE(MP,2010) 

WRITE(MP, 2030 ) . 

2030  F0RMAT(///,29X, ' E N D OF  DAT  A ' / , ' 1 ' ) 

REWIND  MR 

READ(MR, 1000)  CART 

RETURN 

END 

SUBROUTINE  BLCOMT 

C TO  CALL  AND  EXCUTE  BLOCK  'COMT' 

IMPLICIT  REAL*8 (A-H ,0-Z) 

CHARACTER*4  BLANC, CART 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/TVL 1/ CART (20) 

DATA  BLANC/ ' ' / 

WRITE (*,3000) 

3000  FORMAT ('  BLCOMT') 

WRITE(MP, 2000 ) 

2000  FORMAT (//'  COMMENTS'/'  ',8( '=')/) 


C READ  A COMMENT  CARD 

10  READ(MR, 1000)  CART 

1000  FORMAT (20A4 ) 

C SEARCH  FOR  A WHOLLY  BLANK  CARD 

DO  20  1=1,20 

IF(CART(I) .NE. BLANC)  GO  TO  30 
20  CONTINUE 
RETURN 

30  WRITE (MP, 2010 ) CART 

2010  FORMAT ( 1 X, 20A4 ) 


GO  TO  10 
END 

SUBROUTINE  BLCOOR 
C======================= 

C TO  CALL  BLOCK  COOR 
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C TO  READ  NODAL  COORDINATES 

IMPLICIT  REAL*8 (A-H ,0-Z) 

CHARACTER*4  TBL 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/ALLO/NVA , IVA , IVAMAX , NREEL , NTBL 

COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE, LNE , LPREE , LNPEG , LSDEG , LDLE , LKE, LFE, LKGS , LKGD , LKGI  LFG , 

2 LRES , LDLG , LNELS, LEB, LPB 
COMMON/TVL2/FACC3) 

COMMON/TVL3/YWAT , ROWA , BKWA , ATMP 
COMMON  VA(20000 ) 

DIMENSION  TBL(2),FAC1(3),IN(3) 

DATA  TBL/'CORG' ,'DLNC'/, ZERO/O. DO/ 



WRITE (*,3000) 

3000  FORMAT ('  BLCOOR') 


C BLOCK  HEADING 

READCMR, 1000)  IN,FAC1,Y 
1000  FORMAT ( 31 5, 4F 10.0) 

C DEFAULT  OPTIONS 

IF ( IN ( 1 ) ,GT. 0 ) NNT=IN ( 1 ) 
IF(IN(2).GT.O)  NDLN=IN(2) 

IF(IN(3) .GT.O)  NDIM=IN(3) 

DO  10  1=1,3 

10  IF(FACKI).NE.ZERO)  FAC(I)=FAC1  (I) 
IF(Y. NE. ZERO)  YWAT=Y 
C PRINT  BLOCK  PARAMETERS 


C PRINT  BLOCK  PARAMETERS 

WRITE ( MP , 2000 ) M, NNT , NDLN , NDIM ,FAC ( 1 ) , FAC ( 2 ) , F AC( 3 ) , NVA 


2000 

FORMAT(/ / ' INPUT  OF  NODES  (M=',I2,')'/ 

' ,21 ( ' = ' )/ 

1 

15X, 

'MAX.  NUMBER  OF  NODES 

(NNT)s' ,15/ 

2 

15X, 

'MAX.  NUMBER  OF  D.O.F.  PER  NODE 

(NDLN)r' ,15/ 

3 

15X, 

'DIMENSIONS  OF  THE  PROBLEM 

(NDIM) = ' ,15/ 

4 

15X, 

'COORDINATE  SCALE  FACTORS 

(FAC)s' ,E12.5/ 

4 

15X, 

' , E12. 5/ 

4 

15X, 

' ,E12.5/ 

5 

15X, 

'WORKSPACE  IN  REAL  WORDS 

(NVA)r' ,110) 

c 

— ALLOCATE  SPACE 

IF(LCORG.EQ.I)  CALL  ESPACE(NNT*NDIM, 1 ,TBL( 1 ) ,LCORG) 
IF(LDLNC.EQ.I)  CALL  ESPACE(NNT+1 ,0,TBL(2) , LDLNC) 

C EXECUTE  THE  BLOCK 

CALL  EXCOOR(VA(LCORG) ,VA(LDLNC) ) 

RETURN 

END 

SUBROUTINE  EXCOOR(VCORG,KDLNC) 

C TO  EXECUTE  BLOCK  'COOR' 

C READ  NODAL  COORDINATES 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/NUMB/M  f M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
C0MM0N/TVL2/FAC( 3 ) 
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DIMENSION  XI (3) ,X2(3) ,VCORG(») ,KDLNC(») 
DATA  SPECL/1 .23456789D31/ 



C INITIALIZE  COORDINATES 

1 1 = (NNT-1 ) *NDIM+1 
DO  10  1=1,11, NDIM 


10  VCORG( I ) =SPECL 

C READ  NODAL  DATA  CARDS 

IF(M.GT.O)  WRITE (MP, 2000) 

2000  FORMAT (/ / ' NODAL  DATA  CARDS'/) 

20  READCMR, 1000)  INI , XI , IN2,X2, INCR, IDLN 

1000  FORMAT(2(I5,3F10.0) ,215) 

IF(M.GT.O)  WRITE(MP,2010)  IN  1 , XI , IN2, X2 , INCR , IDLN 
2010  FORMAT ( ' »»>  ' ,2(15, 3E  12. 5)  ,215) 

IF(INI.LE.O)  GO  TO  60 
C DECODE  THE  CARD 


IFC IN  1 .GT.NNT)  CALL  ERROR ( 1 1 , INI , NNT, 0 ) 
IFCIN2.GT.NNT)  CALL  ERRORC 1 2, IN2, NNT, 0 ) 
IFCIN2.LE.0)  IN2=IN 1 

IF ( IDLN . GT . NDLN ) CALL  ERROR ( 1 3 , IDLN , NDLN , 0) 

IF(IDLN.LE.O)  IDLN=NDLN 

IF(INCR.LE.O)  INCR'sl 

1 1 = (IN2-IN1 )/INCR 

I2=IN 1+1 1 *INCR 

IF(II.EQ.O)  11=1 

IFCIN2.NE.I2)  CALL  ERROR ( 1 4 , IN2, IN2, 0) 

C GENERATE  NODES  BY  INTERPOLATION 

DO  30  1=1 , NDIM 
XI  ( I ) = X 1 (I)*FAC(I) 

X2(I)=X2(I)*FAC(I) 

30  X2(I)=(X2(I)-X1(I))/I1 

11=0 

12= (INI-1 )*NDIM+1 
13= ( I NCR— 1 ) *NDIM 
DO  50  IN=IN 1 , IN2, INCR 
KDLNCCIN+1 )=IDLN 

IF(VC0RG(I2) .NE.SPECL)  CALL  ERROR ( 1 5 , IN , IN , 0 ) 
DO  40  1=1, NDIM 
VC0RG(I2)=X1 (I )+X2(I )*I 1 


40  12=12+1 

11=11+1 

50  12=12+13 

GO  TO  20 

C CHECK  FOR  MISSING  NODES 

60  1 1 =NNT*NDIM+1 


12=0 

I 3=NNT+1 
DO  90  1=1, NNT 
1 1 =1 1-NDIM 
13=13-1 

IF(VC0RG(I1)-SPECL)  70,80,70 
70  IFCI2.EQ.0)  12=13 
GO  TO  90 

IFCI2.EQ.0)  CALL  ERROR( 16, 13, 13,0) 


30 
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IF( 12. NE. 0 ) CALL  ERRORC 17, 13, 13, 1 ) 

90  CONTINUE 

IF( 12. NE . NNT ) CALL  ERROR ( 1 8 , NNT, 12, 0 ) 

C total  NUMBER  OF  D.O.F. 

NDLT=0 

I1=NNT+1 


DO  100  1=2,11 
100  NDLT=NDLT+KDLNC( I ) 

C OUTPUT 

IF(M.LT. 2)  GO  TO  120 
WRITECMP, 2020 ) 

2020  F0RMATC/10X, 'NODE  D.O.F. ' ,5X, 'X ' 
11  = 1 


1 IX, ' Y ' , 1 IX, 'Z'/) 


2030 


I2=NDIM 

DO  110  IN= 1 , NNT 

WRITECMP, 2030)  IN , KDLNCC IN+1 ) ,(VCORG(I) ,1=11,12) 
FORMAT ( 1 0X, 215, 3E 12. 5 ) 

1 1=1 1+NDIM 


110 

120 


C== 

c 

c 

c== 


c 

3000 

2000 


I2=I2+NDIM 

RETURN 

END 

SUBROUTINE  BLCOND 


TO  CALL  BLOCK  'COND' 

TO  READ  BOUNDARY  CONDITIONS  AND  GENERATE  TABLE  (NEQ) 


1 

2 


IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTERS  TBL 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/ COND/NCLT , NCLZ , NCLNZ 
COMMON/ALLO/NVA , IVA , IVAMAX , NREEL , NT3L 


COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/LOCA/LCORG, LDLNC , LNEQ, LDIMP , LCODE, LINTF, LPREG, LLD , LLOCE , 
LCORE , LNE , LP  REE , LNPEG , LSDEG , LDLE , LKE , LFE, LKGS , LKGD , LKGI , LFG , 
LRES, LDLG, LNELS, LEB, LPB 
COMMON  VAC20000) 

DIMENSION  TBLC2) 

DATA  TBL/ 'NEQ  ' , 'DIMP'/ 


WRITE (*,3000) 

FORMAT ('  BLCOND') 

WRITECMP, 2000)  M 

FORMAT (/ / ' INPUT  OF  BOUNDARY  CONDITIONS  (M= ' 12  ')'/'  ' 
1 35 ('  = ')/ ) 

IF(LNEQ.EQ.I)  CALL  ESPACECNDLT, 0, TBL( 1 ) , LNEQ) 
IF(LDIMP.EQ.I)  CALL  ESPACECNDLT, 1 ,TBL(2) , LDIMP) 

CALL  EXCONDC VA(LCORG) ,VA(LDLNC) ,VA(LNEQ) ,VA(LDIMP)) 

CALL  DSPACE (LDIMP+NCLT, 1 ,TBL(2) ) 

RETURN 


END 


C=  = 

n 


c 


SUBROUTINE  EXCONDC VCORG,KDLNC,KNEQ,VDIMP) 


TO  EXECUTE  BLOCK  'COND' 

READ  BOUNDARY  CONDITIONS  AND  GENERATE  TABLE  (NEQ) 
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IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/COND/NCLT, NCLZ , NCLNZ 
COMMON/ ASSE/NEQ, NSYM, NKG, NKE, NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KV(16),V(10), ICOD( 1 0 ) 

DIMENSION  VCORG( *) , KDLNC ( * ) ,KNEQ( * ) , VDIMP( * ) 

DATA  L7/7/,L8/8/,L16/l6/,X1/O.ODO/,X2/O.ODO/,X3/O.ODO/,ZERO/O.DO/ 

C CUMULATIVE  TABLE  KDLNC 

DO  10  IN=1 , NNT 

10  KDLNCCIN+1 )=KDLNC( IN)+KDLNC( IN+1 ) 

I 1=NNT+1 

IF(M.GE.2)  WRITE(MP,2000)  (KDLNC (IN) ,IN=1 , II ) 

2000  FORMAT (/ / ' NUMBER  OF  D.O.F.  PRECEDING  EACH  NODE  (DLNC) ' / 

1 (IX, 10110)) 

C INITIALIZE 

NCLT=0 

NCLNZ=0 

NCLZ=0 

IF(M.GE.O)  WRITE (MP, 20 10) 

2010  FORMAT(// ' BOUNDARY  CONDITIONS  CARDS'/) 


C READ  A B.C.  GROUP  CARD  : 10  CODES  + PRESCRIBED  VAL. 

20  READ(MR, 1000)  ICOD, (V(I ) , 1=1 , L7) 

1000  FORMAT ( 1011 ,7F 10.0) 

IF(M.GE.O)  WRITE (MP, 2020)  ICOD, ( V (I ) , 1=1 , L7 ) 

2020  FORMAT ( ' »»>  ' , 101 1/1 0X,7E  10 . 3 ) 

C CHECK  FOR  A BLANK  CARD 

J=0 

DO  30  1=1,10 
30  J=J+ICOD(I ) 

IF(J.EQ.O)  GO  TO  110 

C READ  ADDITIONAL  CARD  IF  REQUIRED 

12=0 


DO  40  ID= 1, NDLN 

IF (ICOD (ID) .LT.2)  GO  TO  40 

12=12+1 

IFU2.NE.L8)  GO  TO  40 
READ(MR, 1010)  ( V(I ) , I=L8, NDLN ) 

1010  FORMAT(10X,7F10.0) 

IF(M.GE.O)  WRITE (MP, 2030)  (V (I ) , I=L8, NDLN) 
2030  FORMAT ( 1 0X, 7E 10 . 3 ) 


40  CONTINUE 

C READ  NODE  CARDS 

50  READ(MR, 1020)  (KV(IN) ,IN=1 ,L16) 

1020  FORMAT ( 1615) 

IF(M.GE.O)  WRITE (MP , 2040 ) (KV(IN) ,IN=1 ,L16) 

2040  FORMAT ( ' »>»  (NODES) ' /1 615 ) 

C FORM  NEQ 

DO  100  IN= 1 , L 1 6 
I2=KV(IN) 

C END  OF  GROUP  OF  B.C.  OR  END  OF  MODES  OR  ANALYSIS  OF  A NODE 

IF(I2)  20,20,60 
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IF(I2.GT . NNT)  CALL  ERROR(32, 12, NNT, 1 ) 

1 1 =KDLNC( 12 ) 

IDN=KDLNC(I2+1 )-I1 

GENERATE  VDIMP,  PUT  IT  IN  KNEQ  (THE  PRESCRIBED 

IV=0 


D.O.F.  ADDRESS) 


DO  90  ID= 1 , IDN 
11=11+1 
IC=IC0D(ID)-1 
IF(IC)  90,70,80 

70  NCLT=NCLT+1 

VDIMP (NCLT)= ZERO 
NCLZ=NCLZ+1 
KNEQ(I1)=-NCLZ 
GO  TO  90 

80  NCLT=NCLT+1 

IV=IV+1 


VDIMP (NCLT)=V (IV) 

NCLNZ=NCLNZ+1 
KNEQ(I1 )=-NCLT 
90  CONTINUE 
100  CONTINUE 

c ADDITIONAL  CARD  OF  NODE  NUMBERS 

GO  TO  50 


C GENERATE  EQUATION  NUMBERS  IN  NEQ 

110  11=0 

DO  150  IN=1 , NNT 
ID=KDLNC(IN) 

120  ID=ID+1 

IF(ID.GT.KDLNC(IN+1))  go  TO  150 
IF(KNEQ(ID) ) 120,130,120 
130  11=11+1 

KNEQ( ID)=I 1 
GO  TO  120 
150  CONTINUE 
NEQ=I 1 

C OUTPUT 

IF(M.LT.O)  GO  TO  170 

WRITE ( * , 2050 ) NNT , NDLT , NEQ , NCLNZ , NCLZ , NCLT 
WRITE (MP, 2050 ) NNT , NDLT , NEQ, NCLNZ , NCLZ , NCLT 
2050  FORMAT (// 


2060 

2070 


1 15X, 'TOTAL  NUMBER  OF  NODES 

2 15X, 'TOTAL  NUMBER  OF  D.O.F. 

3 15X, 'NUMBER  OF  EQUATIONS  TO  BE  SOLVED 

4 15X, 'NUMBER  OF  PRESCRIBED  NON  ZERO  D.O.F. 

5 15X, 'NUMBER  OF  PRESCRIBED  ZERO  D.O.F. 

6 15X, 'TOTAL  NUMBER  OF  PRESCRIBED  D.O.F. 

IF( M.GE. 2. AND. NCLT . GT. 0 ) WRITE (MP, 2060) (VDIMP(I) ,1=1 , NCLT) 
FORMAT (/ / ' PRESCRIBED  VALUES  (VDIMP) ' // ( 1 0X. 10E 12  5)) 

WRITE (MP, 2070 ) 

FORMAT (//'  NODAL  COORDINATES  ARRAY'// 

1 ' NO  D.L.',5X,'X',12X,'Y',12X,'Z',10X, 'EQUATION  NUMBER', 

2 ' (NEQ)'/) 


(NNT)= 
(NDLT)= 
(NEQ)= 
(NCLNZ)= 
( NCLZ) = 
( NCI.T  1 = 


,15/ 

,15/ 

,15/ 

,15/ 

,15/ 

.m/') 


12=0 


DO  160  IN= 1 , NNT 
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11=12+1 
I2=I2+NDIM 
ID1 =XDLNC(IN)+1 
ID2=KDLNC( IN+1 ) 

IDsID2-ID1+1 
IF(ID2.LT.ID1)  ID2=ID1 
XlsVCORG(II) 

IF(NDIM.GE.2)  X2=VC0RG(I 1+1 ) 

IFCNDIM.GE.3)  X3=VCORG(I 1+2) 

160  WRITE(MP ,2080)  IN , ID, XI , X2 , X3 , (KNEQ(I ) , I=ID1 , ID2) 
2080  FORMAT ( 1X,2I5, 3E12.5, 1 0X, 1016) 

170  RETURN 
END 

SUBROUTINE  BLPREL 


C TO  CALL  BLOCK  'PREL' 

C TO  READ  ELEMENT  PROPERTIES  (INCLUDING  MODEL  PARAMETERS) 

IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER*4  TBL 

COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 
COMMON/NUMB/ M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

COMMON /LOCA/LCORG, LDLNC,LNEQ, LDIMP, LCODE, LINTF,LPREG, LLD, LLOCE, 

1 LCORE , LNE , LP  REE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG.LNELS, LEB.LPB 
C0MM0N/TVL3/YWAT , ROWA , BKWA , ATMP 
COMMON  VAC 20000) 

DIMENSION  TBL(4),IN(3),WA(3) 

DATA  TBL/' CODE ','INTF','PREG',’V  V,  ZERO/O.  DO/ 


1000 


WRITE (*,3000) 

3000  FORMAT ('  BLPREL') 

c READ  NUMBER  OF  GROUPS  AND  PROPERTIES  PER  GROUP 

READCMR, 1000)  IN.WA 
FORMAT(3I5,3F10.0) 

IF(IN(1).GT.O)  NGPE=IN(1) 

IF(IN(2).GT.O)  NPRE=IN(2) 

IF(IN(3).GT.O)  NPRM=IN(3) 

IF(WA( 1 ) .NE.ZERO)  R0WA=WA(1) 

IF(WA(2) .NE.ZERO)  BKWA=WA(2) 

IF(WA( 3). NE.ZERO)  ATMP=WA(3) 

’WRITE (MP,  2000)  M,  NGPE , NPRE , NPRM 

FORMAT (/ /'  INPUT  OF  ELEMENT  PROPERTIES  (M= ' , 12, ' ) ' / ' ' , 34 ( * = * )/ 

1 15X, 'NUMBER  OF  GROUPS  OF  PROPERTIES  (NGPE=)',I5/ 

2 15X, 'MAX.  NUMBER  OF  BASIC  PROPERTIES  PER  GROUP  (NPRE=)'*I5/ 

3 15X, ' MAX.  NUMBER  OF  MODEL  PROPERTIES  PER  GROUP  (NPRM=)',I5) 

IFCLCODE.EQ. 1 ) CALL  ESPACE (NGPE , 0 , TBL( 1 ) , LCODE) 

IF(LINTF.EQ.I)  CALL  ESPACE(NGPE,0,TBL(2) ,LINTF) 

IF(LPREG.EQ.I)  CALL  ESPACE (NGPE* (NPRE+NPRM) , 1 , TBL (3 ) , LPREG) 

CALL  ESPACE (NPRE+NPRM, 1 ,TBL(4) ,L1 ) 

CALL  EXPREL(VA( LCODE) , VA(LINTF) , VA(LPREG) ,VA(L1)) 

CALL  DSPACE(L1 , 1 ,TBL(4 ) ) 

RETURN 
END 
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SUBROUTINE  EXPREL(KCODE,KINTF, VPREG, VI ) 

TO  EXECUTE  BLOCK  'PREL' 

READ  ELEMENT  PROPERTIES  (INCLUDING  MODEL  PARAMETERS) 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/PREL/NGPE , NPRE , NPRM, NMNL , NHIS 
COMMON/NUMB/M , Ml , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KCODE ( * ) ,KINTF ( * ) , VPREG ( * ) , VI ( * ) 


IF(M.EQ.O)  WRITECMP, 2000 ) 

FORMAT (/ / ' CARDS  OF  ELEMENT  PROPERTIES'/) 

READ  A GROUP 

NPRT=NPRE+NPRM 
J = 1 
K = 1 

1 1 =MIN0(7 , NPRT ) 

READ(MR,  1000)  IGPE .MODEL , IFEL , ( VI (I ) , 1 = 1 , 1 1 ) 

FORMAT (15, 13, 12, 7F 10.0) 

CHECK  IF  DEAL  WITH  ANY  NONLINEAR  MODEL 

IF ( MODEL. GT.O)  NMNL=1 

CHECK  HOW  MANY  HISTORY  DATA  AT  A G.P. 

IF(M0DEL.EQ.4)  NHIS=2 

IF(M.EQ.O)  WRITE (MP ,2010)  IGPE , MODEL , IFEL , ( V 1 (I ) , 1= 1 II) 
FORMAT ( ' >>>>>' /I 5, 13, 12, 7E 10. 3) 

IF(IGPE.LE.O)  GO  TO  40 

IF(IGPE.GT.NGPE)  CALL  ERROR (4 1 , IGPE, NGPE, 1 ) 

KCODE(K)=MODEL 

KINTF(K)=IFEL 

IF(NPRT.LE.7)  GO  TO  20 

READ  MORE  PROPERTIES 

N=  1 
11=8 
N=N  + 1 

I2=MIN0(N*7 , NPRT ) 

READ(MR, 1010)  (VI (I) ,1=11 ,12) 

FORMAT ( 1 0X , 7F 1 0 . 0 ) 

IF(M.GE.O)  WRITE (MP, 2020)  (VI (I) ,1=1 1 , 12) 

FORMAT ( 10X,7E10.3) 

11=12+1 

IF(NPRT.GT. 12)  GO  TO  15 
DO  30  1=1, NPRT 
VPREG( J ) = V 1 ( I ) 

J=J+1 
K=K+1 
GO  TO  10 
RETURN 
END 

SUBROUTINE  BLELEM 


TO  CALL  BLOCK  'ELEM' 
TO  READ  ELEMENT  DATA 


IMPLICIT  REAL*8 (A-H , 0-Z ) 
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CHARACTER*^  TBL 

COMMOM/COOR/NDIM, NNT, NDLN , NDLT 
COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ASSE/NEQ, NSYM, NKG, NKE, NDLE 
COMMON/NUMB/M , Ml , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP , LCODE , LINFT , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE, LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG , LNELS, LEB, LPB 
COMMON  VAC 20000) 

DIMENSION  TBL(7 ) , IN C 8 ) 

DATA  TBL/' LD  ' , 'LOCE ' , ' CORE ' , ' NPEG ' , ' SDEG ' , ' NE  ','PREE'/ 


WRITE (*,3000) 

3000  FORMAT C BLELEM’) 

C OPEN  ELEMENT  PROPERTY 


FILE  ME  (DIRECT  ACCESS) 


C DETERMINE  THE  BLOCK  LENGTH 

LR=7*4+NNEL*NDLN*4+NNEL*NDIM*8+NNEL*4 

OPEN(ME,FILE='ME.DAT’ ,STATUS='NEW' ,ACCESS= ' DIRECT ' , RECL=LR) 
READ (MR, 1000)  IN 
1000  FORMATC3I5) 

NELTaIN(1 ) 

NNEL=IN (2 ) 

NKEL=IN(3) 

NTPE=IN(4 ) 

NSDG=IN(5 ) 

NLAG=IN(6 ) 

NSYM= 1 
NIDENT=1 

M, NELT , NNEL , NKEL , NTPE , NSDG , NSYM , NIDENT 


IF(INd).GT.O) 
IF(IN(2).GT.O) 
IF(IN(3).GT.O) 
IF ( IN (4 ) .GT.O) 
IF ( IN ( 5 ) .GT . 0) 
IF( IN(6 ) .GT.O ) 
IF ( I N ( 7 ) .NE.O) 
IF ( I N ( 8 ) .NE.O) 
WRITE(MP,2000) 


2000  FORMAT (/ / ' INPUT  OF  ELEMENTS  (M= ' , 12, ' ) ' / ' ' ,24('=')/ 

1 15X , ' MAX.  NUMBER  OF  ELEMENTS  (NELT)=',I5/ 

2 15X, ' MAX.  NUMBER  OF  NODES  PER  ELEMENT  (NNEL)=',I5/ 

3 15X, 'DEFAULT  ELEMENT  CASE  (NKEL)=',I5/ 

4 15X, 'DEFAULT  ELEMENT  TYPE  (NTPE)=',I5/ 

5 15X, 'ELEMENT  BEHAVIOR  CODE  (NSDG)=',I5/ 

6 15X, 'INDEX  FOR  NON  SYMMETRIC  PROBLEM  (NSYM)=',I5/ 

7 15X, 'INDEX  FOR  IDENTICAL  ELEMENTS  (NIDENT)a' ,15/) 
IF(LLD.EQ.I)  CALL  ESPACE(NEQ+1 ,0,TBL( 1 ) ,LLD) 

IF(LLOCE.EQ.I)  CALL  ESP ACE (NNEL *NDLN,0,TBL(2) , LLOCE) 

IF(LCORE.EQ.I)  CALL  ESPACE(NNEL*NDIM, 1 ,TBL(3) , LCORE) 

IFCLNPEG.EQ. 1 ) CALL  ESPACE (NELT, 0 , TBL(4 ), LNPEG ) 

IFCNSDG. GT.O. AND. LSDEG. EQ.1)  CALL  ESPACECNELT , 0, TBL(5 ), LSDEG) 
IF(LNE.EQ.I)  CALL  ESPACE (NNEL ,0 , TBL(6 ) ,LNE) 

IFCNPRE. GT.O. AND. LPREE. EQ. 1 ) CALL  ESPACE (NPRE+NPRM, 1 , TBL(7 ) , LPREE) 
CALL  EXELEMC VA(LCORG) ,VA(LDLNC) ,VA(LPREG) ,VA(LLOCE) ,VA(LCORE) , 

1 VAC  LNPEG) , VA(LSDEG) , VA(LNE) , VA(LNEQ) , VA(LLD) ) 

WRITE (MP, 20 10)  NKG, NPG 

2010  F0RMATC15X, 'LENGTH  OF  A TRIANGLE  IN  KG  (NKG)=',I10/ 

1 15X, 'NUMBER  OF  INTEGRATION  POINTS  (NPG)= ' , I 10/) 

RETURN 

END 


SUBROUTINE  EXELEMC VCORG , KDLNC , VPREG , KLOCE , VCORE , KNPEG , KSDEG , KNE , 
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1 KNEQ.KLD) 

C TO  EXECUTE  BLOCK  'ELEM' 

C READ  ELEMENT  DATA 

IMPLICIT  REAL*8 ( A-H , O-Z ) 

COMMON/ COOR/NDIM, NNT, NDLN , NDLT 
COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NT PE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM , NELS 

COMMON/ASSE/NEQ, NSYM, NKG , NKE, NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE, IMATD, INSE , INPE , IDLEO , INELO, IPGO , IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR ,MP , M7 , MS , M9 , MH 

DIMENSION  VCORG(*) ,KDLNC(») ,VPREG(») ,KLOCE(») ,VCORE(*) ,KNPEG(*) 

I KSDEG(») ,KNE(») ,KNEQ(*) ,KLD(») 

DATA  19/9/, 115/15/ 



c INITIALIZE 

NSEM=0 

NPEM=0 

NDLE=0 

IELT=0 

NPG=0 

IF(M.GT.O)  WRITE (MP, 2000) 

2000  FORMAT (//»  ELEMENTS  CARDS'/) 

C READ  AN  ELEMENT  CARD 

10  READCMR, 1000)  IEL , IGEN , INCR , IKEL , ITPE , IGPE, ISDE, 

1 (KNE(IN) ,IN=1 , 19) 

1000  FORMAT (1615) 

IF(M.GT.O)  WRITE (MP, 20 10)  IEL , IGEN , INCR , IKEL , ITPE , IGPE , ISDE , 

1 (KNE (IN) , IN= 1 , 19 ) 

2010  FORMAT ( ' »>>>',  1615) 

IF (IEL ) 80,80,20 

c NUMBER  OF  NODES  AND  ADDITIONAL  CARDS  AS  REQUIRED 

20  INEL=0 

II  = 1 
12=19 

30  DO  40  IN=I 1 , 12 

IF(KNE(IN).EQ.O)  GO  TO  45 
INEL=INEL+1 
40  CONTINUE 
11=12+1 
12=11+115 

READ(MR , 1000 ) (KNE(IN) ,IN=I 1 , 12) 

IF(M.GT.O)  WRITE(MP, 20 10 ) (KNE ( IN) , IN=I 1 , 12) 

GO  TO  30 


C CHECKING 

45  IF ( I NEL . GT . NNEL ) CALL  ERROR (5 1 , INEL , NNEL , 1 ) 


IF(INCR.EQ.O)  INCR= 1 
IF(IKEL.EQ.O)  IKEL=NKEL 
IF(ITPE.EQ.O)  ITPE=NTPE 

IF(IGPE.GT.NGPE)  CALL  ERROR (53, IGPE , NGPE, 1 ) 
IF( ISDE.GT. NSDG)  CALL  ERROR(54, ISDE, NSDG, 1 ) 
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C ELEMENT  GENERATION 

IF(IGEN.EQ.O)  IGENsI 
DO  70  IE= 1 , IGEN 

IF(IEL.GT.NELT)  CALL  ERROR (55, IEL,NELT, 1 ) 

c GENERATE  KLOCE  AND  UPDATE  KLD 

CALL  LOCELD(KDLNC , KNE , KNEQ, KLOCE , KLD ) 

c GENERATE  ELEMENT  COORDINATES 

ICE=0 

DO  50  11=1, INEL 
IC=(KNE(I1)— 1 )*NDIM 
DO  50  12= 1 , NDIM 
ICE=ICE+1 
IC=IC+1 

'/CORE  (ICE  ) = VCORG(IC) 

50  CONTINUE 

C GENERATE  GLOBAL  ELEMENT  PROPERTY  AND  BEHAVIOR  TABLE 

KNPEG(IEL)=IGPE 
IF(NSDG.GT.O)  KSDEG(IEL)=ISDE 

c UPDATE  TOTAL  NUMBER  OF  ELEMENTS  DELETED 

IF(IGPE.EQ.O)  NELS=NELS+1 

C CHECK  ELEMENT  NODE  NUMBERS  AND  D.O.F 

IPG0=0 
ICODE= 1 

CALL  ELEMLB( VCORE, VPREE , VDLE , VKE, VFE ) 

IFQNEL.EQ.  INELO.  AND. IDLE.  EQ.IDLEO)  GO  TO  55 
WRITE (MP, 2020)  IEL , INEL , INELO, IDLE , IDLEO 
2020  FORMAT C **  ELEMENT ', 15, ' INCONSISTENT ' /5X, ' INEL= 14 , ' INELO-'  15 
1/  5X, 'IDLE=' ,15, ' IDLE0=',I5) 


C UPDATE  TOTAL  NUMBER  OF  INTEGRATION  POINTS 

55  NPG=NPG+IPGO 

C CALCULATE  TOTAL  NUMBER  OF  STRESSES  AT  INTEGRATION  POINTS 

INSE=IMATD*IPGO 
INPE=0 

IF(NSDG.GT.O)  INPE=IPGO 

C FIND  MAX.  NSEL  AND  INPE 

NSEL =2*1 NSE+INPE 

IF ( NSEM . LT . NSEL ) NSEM=NSEL 

IF(NPEM.LT.IPGO)  NPEM=IPGO 

C STORE  ON  ELEMENT  FILE 

CALL  WRELEM(ME, KLOCE, VCORE, KNE) 

IELT=IELT+1 

c PRINT  ELEMENT  CHARACTERISTICS 

CALL  PRELEM ( KLOCE , VCORE , KNE , KNPEG ) 

C NEXT  ELEMENT  TO  BE  GENERATED  OR  READ 

DO  60  IN=1 , INEL 
60  KNE(IN)=KNE(IN)+INCR 

IF( IDLE.GT. NDLE ) NDLE=IDLE 
70  IEL=IEL+1 
GO  TO  10 

C CHECK  IF  TOTAL  NUMBER  OF  ELEMENT  IS  EXCEEDED 

80  IF(IELT.NE.NELT)  CALL  ERROR (57, IELT, NELT, 1 ) 

C PRINT  BAND  HEIGHTS 


IMA=0 

IMO=0 


198 


I 1=NEQ+1 
DO  90  1=2,11 
J =KLD( I ) 

IF(J.GT.IMA)IMA=J 
90  IMO=IMO+J 
C = IMO 
C=C/NEQ 

WRITE(MP, 2030 ) C , IMA 

2030  F0RMAT(/15X, 'MEAN  BAND  HEIGHT= ' ,F8 . 1 , ' MAXIMUM: ' , 15 ) 

IF(  M.GE.  2)  WRITE (MP, 2040)  (KLD(I ) ,1=1,11) 

2040  FORMAT (/ /'  TABLE  OF  BAND  HEIGHTS'/( 10X.20I5) ) 

c TRANSFORM  KLD  INTO  ADDRESSES  OF  COLUMN  TOP  TERM 

IF(NSYM.EQ.O)  NKE=(NDLE*(NDLE+1 ) )/2 
IF(NSYM.EQ. 1 ) NXE=NDLE*NDLE 
KLD( 1 )= 1 
DO  100  ID=2, II 

100  KLD(ID)=XLD(ID-1 )+KLD(ID) 

NKG=KLD(I 1 )-1 

IF( M.GE. 2)  WRITE(MP,2050)  (XLD(ID) , ID=1 , II ) 

2050  FORMAT (/ / ' TABLE  OF  ADDRESSES  OF  COLUMN  TOP  TERMS  (LD)'/ 

1 ( 10X.20I6) ) 

C NUMBER  OF  STRESSES  AND  NUMBER  OF  PWP  PER  ELEMENTC CUMULATIVE ) 

RETURN 

END 

SUBROUTINE  LOCELD(KDLNC , KNE , KNEQ, KLOCE , KLD ) 


C TO  FORM  THE  ELEMENT  LOCALIZATION  TABLE  (LOCE) 

C AND  UPDATE  COLUMN  HEIGHTS  FOR  A GIVEN  ELEMENT 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG , ICODE, IMATD, INSE , INPE , IDLEO , INELO, IPGO , IRES 
DIMENSION  KDLNC(») ,KNE(») ,KNEQ(*) , KLOCE (*) , KLD(*) 

DATA  NDLMAX/32000/ 



0 GENERATE  KLOCE  FROM  KNEQ 

IDLE=0 

LOCMIN=NDLMAX 
DO  20  IN= 1 , INEL 
INN=KNE(IN) 

IF(INN.GT.NNT)  CALL  ERROR (56 , INN , NNT , 1 ) 

IEQ=KDLNC(INN) 

IEQ1 =KDLNC( INN+1 ) 

10  IF(IEQ.GE.IEQ1 ) GO  TO  20 

IEQ=IEQ+1 
IDLE=IDLE+1 
J=KNEQ(IEQ) 

KLOCE(IDLE)=J 

IF ( J.LT.LOCMIN.AND. J.GT.O)  LOCMIN=J 
GO  TO  10 
20  CONTINUE 

C UPDATE  TABLE  OF  COLUMN  HEIGHTS  (KLD) 

DO  30  ID=1 , IDLE 
J=KLOCE(ID) 
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IF(J.LE.O)  GO  TO  30 
IH=J-LOCMIN 


30 
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IF(IH.GT.KLD(J+1))KLD(J+1 )=IH 

CONTINUE 

RETURN 

END 

SUBROUTINE  PRELEM( KLOCE , VC0RE , KNE , KNPEG ) 


PRINT  DATA  DEFINING  AN  ELEMENT 


IMPLICIT  REAL*8 (A-H , O-Z ) 

C0MM0N/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , 
1 IPG, ICODE, IMATD, INSE, INPE , IDLEO, INELO, IPGO 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP.M7, MS, M9.MH 
DIMENSION  KL0CE(*) ,VCORE(*) ,KNE(*) ,KNPEG(*) 


IFEL, IDLE, ICE, INEL 
, IRES 


» 


IF(M.GE.O)  WRITE (MP, 2000 ) IEL , IKEL , ITPE, INEL , IDLE, KNPEG(IEL) , ISDE 
FORMAT (1  OX, 'ELEMENT: ' ,15, ' KIND: ',12, ' TYPE: ',12,'  N P • ' 12 
1 ' D.O.F . : ' ,13, ' pr  #:»fi2,»  S.D.:',I2) 

IF(M.GE.O)  WRITE(MP, 2010 ) (KNE (I ) , 1=1 , INEL ) 

FORMAT (15X, 'CONNECTIVITY  (NE) ' ,20I5/(32X, 2015) ) 

IF ( M. LT. 1 ) GO  TO  10 

WRITE (MP, ’2020)  (KLOCE (I ), 1=1 , IDLE) 

FORMAT (15X, 'LOCALIZATN  (LOCE)' , 2015/ (32X, 2015 ) ) 

WRITE (MP, 2030)  (VCORE(I) ,1=1 ,ICE) 

FORMAT ( 1 5X, ' COORDINATES ( CORE ) ' , 8E 12. 5/(32X, 8E 12  5)) 

RETURN 

END 

SUBROUTINE  WRELEM( ME , KLOCE , VCORE , KNE ) 


WRITE  ELEMENT  PROPERTIES  ON  RAMDON  ACCESS  FILE 


ME 


IMPLICIT  REAL*8 (A-H , O-Z ) 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL 

1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 

DIMENSION  KLOCE (*) , VCORE( * ) ,KNE(* ) 


WRITE (ME, REC=IEL)  IKEL , ITPE , IDLE , ICE , INEL , INSE , INPE , 

1 (KLOCE (I), 1=1, IDLE), (VCORE(I), 1=1, ICE),  (KNE(I), 1=1, INEL) 
RETURN 
END 

SUBROUTINE  RDELEM ( ME , KLOCE , VCORE , KNE ) 


READ  ELEMENT  PROPERTIES  FROM  RAMDON  ACCESS  FILE  ME 


IMPLICIT  REAL*8 (A-H , O-Z ) 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
DIMENSION  KLOCE(») ,VCORE(») ,KNE(») 


READ(ME, REC=IEL)  IKEL , ITPE , IDLE , ICE , INEL , INSE , INPE, 

1 (KLOCE (I) ,1=1 , IDLE) , (VCORE (I) ,1=1 , ICE) ,(KNE(I) ,1=1, INEL) 
RETURN 
END 
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SUBROUTINE  BLCONC 


TO  CALL  BLOCK  'CONC' 

TO  READ  CONCENTRATED  LOADS 


IMPLICIT  REAL*8 (A-H , O-Z ) 


CHARACTERS  TBL 

COMMON/ ASSE/NEQ, NSYM , NKG , NKE , NDLE 


1 

2 


COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP.M7, MS, M9,MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP , LCODE , LINTF , LPREG , LLD , LLOCE , 
LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE.LFE, LKGS , LKGD , LKGI , LFG , 
LRES, LDLG , LNELS, LEB, LPB 
COMMON  VAC 20000) 

DATA  TBL/'FG  V 


WRITE (*,3000) 

FORMAT ( ' BLCONC') 

WRITE(MP,2000)  M 

FORMAT (/ / ' INPUT  OF  CONCENTRADED  LOADS  (Ms'  12  ')'/'  ' 
1 39 ('=’)) 

IF(LFG.EQ.I)  CALL  ESPACE(NEQ, 1 , TBL, LFG) 

CALL  EXCONC(VA(LFG) ,VA(LDLNC) , VA(LNEQ) ) 

RETURN 

END 

SUBROUTINE  EXCONC(VFG,KDLNC,KNEQ) 


TO  EXECUTE  BLOCK  'CONC' 
READ  CONCENTRATED  LOADS 


IMPLICIT  REAL*8 ( A-H , O-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 
1 NPEM, NELS 

COMMON/ASSE/NEQ , NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KV( 16 ) , V( 14 ) 

DIMENSION  VFG(») ,KDLNC(») ,KNEQ(») 

DATA  L 16/1 6/, ZERO/O. DO/ 


— READ  DATA 
IF(M.GE.O)  WRITE (MP, 2000) 

FORMAT (//'  CARDS  OF  NODAL  LOADS'//) 

I0=MIN0(7 , NDLN ) 

READ(MR, 1000)  IG, ( V(I ) , 1= 1 , 10) 

F0RMAT(I5, 7F10.0) 

IFCNDLN.GT.7)  READ(MR, 1005 ) ( V(I ), 1=8, NDLN ) 
FORMAT (5X.7F 10.0) 

IF(M.GE.O)  WRITE (MP ,2010)  IG , ( V (I ) , 1= 1 , NDLN) 
FORMAT ( ' >>>>>'  ,15, 7E  12.5/ ( ' »»>  ' , 5X, 7E 12. 5 ) ) 
IF(IG.LE.O)  GO  TO  60 
READCMR, 1010)  (KV(I) ,1=1 ,L16) 

FORMAT (1615) 

IF(M.GE.O)  WRITE (MP, 2020)  (XV(I ) , 1=1 , L16 ) 

FORMAT ('  >>>>> ' ,1615) 
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C DECODE  NODAL  DATA 

DO  50  IN= 1 , L 1 6 
1 1 =KV (IN) 

IF(II.GT.NNT)  CALL  ERROR (6 1 ,11, NNT. 1 ) 

IF (II)  10,10,30 
30  ID1=KDLNC(I 1 )+1 

ID2=KDLNC(I 1+1 ) 

J=0 

DO  50  ID=ID1 , ID2 
J=J  + 1 

IEQ=KNEQ(ID) 

IF(IEQ)  50,50,40 
40  VFG(IEQ)=VFG(IEQ)+V( J ) 

50  CONTINUE 

GO  TO  20 

C OUTPUT 

60  IF(M.GE.I)  WRITE (MP, 2030)  (VFG(I)  ,1=1 , NEQ) 

2030  FORMAT(/ / ' TOTAL  LOAD  VECTOR V( 10X, 10E12  5)) 

RETURN 

END 

SUBROUTINE  BLBODY 
C TO  CALL  BLOCK  'BODY' 

C TO  ASSEMBLE  DISTRIBUTED  LOADS  (ELEMENT  FUNCTION  7) 

IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER*4  T3L 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ASSE/NEQ, NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M, Ml ,ME,M3 , M4 , MR ,MP , M7, MS, M9 ,MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP , LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES , LDLG, LNELS, LEB, LPB 
COMMON  VAC20000) 

DIMENSION  TBL(8 ) 

DATA  TBL/'FG  ','KE  ' , * FE  ','DLE  ','KGS  ' , ' KGD  ','KGI 
1 'RES  '/ 



WRITE (*,3000) 

3000  FORMAT ('  BLBODY') 

WRITE (MP, 2000 ) M 

2000  FORMAT (//'  ASSEMBLING  OF  DISTRIBUTED  LOADS  (M='  12  ')'/ 

1 IX , 40 ( '=' )/) 

IF(LFG.EQ.I)  CALL  ESP ACE (NEQ, 1 ,TBL( 1 ) ,LFG) 

IF(LFE.EQ.I)  CALL  ESPACE(NDLE, 1 ,TBL(3) ,LFE) 

IF(LDLE.EQ. 1)  CALL  ESPACE(NDLE, 1 , TBL(4 ) ,LDLE ) 

IF(LRES.EQ.I)  CALL  ESPACE(NDLT+NEQ, 1 ,TBL(8) ,LRES) 

CALL  EXBODY(VA(LLD) ,VA(LLOCE) ,VA(LCORE) , VA(LNPEG) , VA(LPREE) , 

1 VA(LNE) ,VA(LKE) ,VA(LFE) , VA(LKGS) , VA(LKGD) ,VA(LKGI) ,VA(LFG) , 

2 VA( LPREG) ,VA( LSDEG) ,VA(LDLE) ) 

RETURN 

END 
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SUBROUTINE  EXBODY (KLD , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS 
1 VKGD , VKGI , VFG , VPREG , KSDEG , VDLE ) 

C TO  EXECUTE  BLOCK  'BODY' 

C ASSEMBLE  DISTRIBUTED  LOADS  (ELEMENT  FUNCTION  7) 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM, NNT, NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS, M9 , MH 

DIMENSION  KLD(*) ,KLOCE(*) ,VCORE(*) ,KNPEG(*) ,VPREE(«) ,KNE(*) , 

1 VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VPREG(*),KSDEG(*), 

2 VDLE(*) 



C ASSEMBLE  FG 

CALL  ASFG(KLD , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , VKGD , VKGI , 
1 VFG, VPREG, KSDEG, VDLE) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000)  (VFG(I) ,1=1 , NEQ) 

2000  FORMAT (/ ' GLOBAL  LOAD  VECTOR  (FG) ' /( 1 X, 10E 12. 5 ) ) 

RETURN 

END 

SUBROUTINE  ASFG(KLD, KLOCE, VCORE, KNPEG, VPREE, KNE, VKE, VFE, VKGS, 

1 VKGD , VKGI , VFG , VPREG , KSDEG , VDLE ) 

C ASSEMBLING  DISTRIBUTED  LOADS  IN  FG 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/PREL/NGPE , NPRE , NPRM, NMNL , NHIS 
COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE.IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 
DIMENSION  KLD(») ,KLOCE(*) ,VCORE(*) ,KNPEG(») ,VPREE(*) ,KNE(*)  , 

1 VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VPREG(*),KSDEG(*) , 

2 VDLE(* ) 


C LOOP  OVER  THE  ELEMENTS 

DO  20  IEL=1 , NELT 

C READ  AN  ELEMENT  FROM  FILE  M2 

CALL  RDELEM( ME, KLOCE, VCORE, KNE) 
WRITE (*,3000)  IEL 

3000  FORMAT ('  ELEMENT  LOAD  VECTOR ',15) 
C GENERATE  ELEMENT  PROPERTIES 


IC=(KNPEG(IEL)-1 ) * (NPRE+NPRM) 

DO  10  1=1 , NPRE+NPRM 
10  VPREE (I ) = VPREG(IC+I ) 

IF(NSDG.GT.O)  ISDE=KSDEG (IEL ) 

C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF( ITPE. EQ. ITPE 1 ) GO  TO  15 
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IC0DE=2 

CALL  ELEMLB( VCORE , VPREE , VDLE , VKE , VFE ) 

C EVALUATE  ELEMENT  VECTOR 

15  ICODE=4 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE , VFE ) 

C PRINT  ELEMENT  VECTOR  VFE 

IF( M.GE. 2)  WRITE (MP, 2000)  IEL, (VFE(I ) ,1=1 , IDLE) 
2000  FORMAT (/'  VECTOR  (FE)  , ELEMENT: ',I5/( 10X, 10E12 
C ASSEMBLE 


CALL  ASSEL (0 , 1 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD, VKGI , VFG) 
20  ITPE1=ITPE 
RETURN 
END 


Css 

C 

c 

Cs  = 


SUBROUTINE  BLINSI 


TO  CALL  BLOCK  'INSI'  (INSITU  MATERIAL  LOADS) 

TO  ASSEMBLE  EQUIVALENT  NODAL  LOADS  DUE  TO  INSITU  LOADING 


IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER*4  TBL 

COMMON/COOR/NDIM, NNT, NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL f NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
1 NPEM.NELS 

COMMON/ ASSE/NEQ, NSYM , NKG , NKE , NDLE 


1 

2 


1 


COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP , LCODE, LINTF , LPREG , LLD , LLOCE 
LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 
LRES , LDLG , LNELS, LEB , LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VA(20000) 

DIMENSION  TBL (8 ) 

DATA  TBL/’ FG  VKE  ','FE  ','DLE  ','KGS  ','KGD  ','KGI  ' 

'RES  '/ 


WRITE (*,3000) 

3000  FORMAT ('  BLINSI') 

ISEQsl 
IASSEL= 1 
IBAR=0 

WRITE (MP, 2000)  M 

2000  FORMAT (/ / ' ASSEMBLING  OF  INSITU  LOADS  (Ms'  12  ')'/ 

1 IX, 40 ( ' = ' ) /) 

IF(LFG.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL( 1 ) ,LFG) 

IF(LFE.EQ.I)  CALL  ESPACE (NDLE, 1 , TBL(3 ), LFE ) 

IF(LDLE.EQ.I)  CALL  ESPACE (NDLE, 1 , TBL(4 ) ,LDLE ) 

IF(LRES.EQ.I)  CALL  ESPACE (NDLT+NEQ, 1 ,TBL(8) ,LRES) 

CALL  EXINSKVA(LLD)  ,VA(LLOCE) , VA(LCORE) , VA(LNPEG)  , VA(LPREE ) , 

1 VA(LNE) ,VA(LKE) ,VA(LFE) ,VA(LKGS) , VA(LKGD) , VA(LKGI ) , VA(LFG) , 

2 VA(LNEQ) ,VA (LDLNC) ,VA(LPREG) ,VA( LSDEG ) ,VA( LDLE) ) 

RETURN 

END 

SUBROUTINE  EXINSI (KLD, KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 
1 VKGD , VKGI , VFG , KNEQ, KDLNC , VPREG , KSDEG , VDLE ) 
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C TO  EXECUTE  BLOCK  'INSI' 

ASSEMBLE  EQUIVALENT  NODAL  LOADS  (ELEMENT  FUNCTION  4) 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM,NELS 

COMMON/ ASSE/NEQ, NSYM, NKG, NKE, NDLE 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

DIMENSION  KLD(*) ,KLOCE(») ,VCORE(») ,KNPEG(») ,VPREE(») ,KNE(») , 

1 VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),KNEQ(*),KDLNC(*), 

2 VPREG(*) ,KSDEG(*) ,VDLE(*) 



C ASSEMBLE  FG 

CALL  ASFG(KLD , KLOCE , VCORE, KNPEG, VPREE , KNE , VKE, VFE, VKGS , VKGD , 

1 VKGI , VFG, VP REG , KSDEG , VDLE) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000 ) (VFG(I ) , 1=1 , NEQ) 

2000  FORMAT(/ ' GLOBAL  LOAD  VECTOR  (FG) V ( IX, 10E 12. 5 ) ) 

RETURN 

END 

SUBROUTINE  BLLOAD 
C TO  CALL  BLOCK  'LOAD' 

C TO  READ  CONCENTRATED  LOADS  (CONSTRUCTION  SEQUENCES) 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG , LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VA(20000 ) 



WRITE (*,3000) 

3000  FORMAT ('  BLLOAD') 

ISEQ=7 

IASSEL=0 

IF(IBAR.EQ.I)  IASSEL=1 
IBAR=0 

WRITE(MP, 2000 ) M 

2000  FORMAT(/ / ' INPUT  OF  CONCENTRADED  LOADS  (M= ' , 12, ' ) ' / ' ' 

1 39  C ’ = ’ ) ) 

CALL  EXLOAD(VA(LFG) , VA(LDLNC) , VA(LNEQ) ) 

RETURN 

END 

SUBROUTINE  EXLOAD ( VFG, KDLNC.KNEQ) 

C TO  EXECUTE  BLOCK  'LOAD' 

C READ  CONCENTRATED  LOADS 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 


205 


1 NPEM.NELS 

COMMON/ ASSE/NEQ, NSYM, NKG, NKE, NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7  MS  M9  MH 
DIMENSION  KV( 16  ) ,V( 14 ) 

DIMENSION  VFG(») ,KDLNC( * ) ,KNEQ( * ) 

DATA  L 16/1 6/ , ZERO/O. DO/ 


C INITIALIZE  VFG 

DO  100  1=1, NEQ 
100  VFG( I ) =ZERO 

C READ  DATA 

IF(M.GE.O)  WRITE (MP, 2000) 

2000  FORMAT (//'  CARDS  OF  NODAL  LOADS'//) 

I0=MIN0(7, NDLN) 

10  READ (MR, 1000)  IG, ( V (I ) , 1= 1 , 10) 

1000  FORMAT (15, 7F 10.0) 

IF(NDLN.GT.7)  READ(MR,  1005 ) ( V (I ) , 1 = 8, NDLN ) 

1005  FORMAT (5X,7F 10.0) 

IF(M.GE.O)  WRITE (MP, 20 10)  IG , ( V (I ) , 1=1 , NDLN) 
2010  FORMAT  (*  »»>  ',15, 7E 12. 5/ ( ' »»>  ' ,5X,  7E 12. 5 ) ) 
IF(IG.LE.O)  GO  TO  60 


20  READ(MR, 1010)  (KV(I ) , 1=1 , L16 ) 

1010  FORMAT ( 1615) 

IF(M.GE.O)  WRITE (MP, 2020 ) (XV(I),I=1, 
2020  FORMAT ( ' >>>>>  » , 1615 ) 

C DECODE  NODAL  DATA 

DO  50  IN=1 , L 1 6 
I 1=KV(IN) 

IF(II.GT.NNT)  CALL  ERROR (6 1 , I 1 , NNT, 1 ) 
IF( 1 1 ) 10,10,30 
30  ID1 =KDLNC(I 1 )+1 


ID2=KDLNC( 1 1 + 1 ) 

J=0 

DO  50  ID=ID1 , ID2 
J=J+1 

IEQ=KNEQ(ID) 

IF(IEQ)  50,50,40 
40  VFG(IEQ)=VFG(IEQ)+V( J ) 

50  CONTINUE 

GO  TO  20 

C OUTPUT 

60  IF(M.GE.I)  WRITE (MP, 2030)  (VFG(I) ,1=1 , NEQ) 

2030  FORMAT (/ / ’ TOTAL  LOAD  VECTOR ' /( 1 0X, 10E 12. 5 ) ) 

RETURN 

END 

SUBROUTINE  BLDWAT 

C TO  CALL  BLOCK  'DWAT'  (LOWER  WATER  LEVEL) 

C TO  ASSEMBLE  EQUIVALENT  NODAL  LOADS  DUE  TO  DEWATERING 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

CHARACTER*4  TBL 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 
1 NPEM , NELS 
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COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9.MH 

COMMON/LOCA/LCORG , LDLNC, LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , IDLE , LKE, LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG , LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VA( 20000) 

DATA  TBL/'NELS'/ 

WRITE (*,3000) 

3000  FORMAT ('  BLDWAT') 

ISEQ=2 

IASSEL=0 

IBAR=0 

READ(MR , 1000)  NELS 
1000  F0RMAT(I5) 

WRITE (MP, 2000)  M, NELS 

2000  FORMAT (/ / ' ASSEMBLING  OF  DEWATER  LOADS  (M= ' , 12, ' ) ' /I X 40('  = ')/ 

1 15X, 'NUMBER  OF  DWAT  ELEMENTS  (NELS)='  15/) 

IF(NELS.EQ.O)  WRITE (MP, 20 10 ) 

2010  FORMAT(/ / ' **  ERROR,  NO  ELEMENT  FOR  (DWAT)'/) 

IF(NELS.EQ.O)  STOP 

CALL  ESPACE (NELS, 0,TBL, LNELS) 

CALL  EXDWAT (VA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) , VA(LNPEG) 

1 VA(LPREE) ,VA(LNE) ,VA(LKE) ,VA(LFE) , VA(LKGS) ,VA(LKGD) ,VA(LKGI) , 

2 VA(LFG) ,VA(LNEQ) ,VA(LDLNC) , VA(LPREG) ,VA(LSDEG) , VA(LDLE) 

3 VA(LDLG) ,VA( LNELS) ) 

CALL  DSP ACE (LNELS, 0, T3L) 

RETURN 

END 

SUBROUTINE  EXDWAT (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , 
1 VKGS , VKGD , VKGI , VFG, KNEQ, KDLNC, VPREG , KSDEG , VDLE , VDLG , KNELS ) 

C TO  EXECUTE  BLOCK  'DEWA' 

ASSEMBLE  EQUIVALENT  NODAL  LOADS  (ELEMENT  FUNCTION  6) 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM, NNT, NDLN.NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
1 NPEM, NELS 

COMMON/ASSE/NEQ, NSYM , NKG , NKE , NDLE 

COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

DIMENSION  KLD( *) ,VDIMP(») ,KLOCE(*) ,VCORE(*) ,KNPEG(*) ,VPREE(») 

1 KNE(») , VKE ( * ) , VFE ( * ) , VKGS ( * ) , VKGD( *) , VKGI ( *) ,VFG(*) ,KNEQ(*) 

2 KDLNC ( * ) , VPREG(*) ,KSDEG(*) ,VDLE(*) ,VDLG(*) ,KNELS(*) 

DATA  ZERO/O. DO/ 



c INITIALIZE  VFG 

DO  10  1=1 ,NEQ 
10  VFG(I )=ZERO 

C READ  AN  ELEMENT  DEWATER  CARD 

KK=0 

20  READ(MR, 1000)  IEL.IGEN, INCR 

1000  FORMAT(3I5) 

IF(IEL.LE.O)  GO  TO  40 
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DO  30  IE  = 1 , IGEN 
KK=KK+1 
KNELS(KK)=IEL 
KSDEG(IEL)=0 
30  IEL=IEL+INCR 
GO  TO  20 

C ASSEMBLE  MEW  FG 

MO  CALL  ASFGO (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 
1 VKGD , VKGI , VFG , VPREG , KSDEG , VDLE , VDLG , KNELS ) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000)  ( VFG( I ) , 1=1 , NEQ) 


2000  FORMATC * DWAT  LOAD  VECTOR  (FG) ' /( 1 X, 10E 12. 5 ) ) 

WRITE (MP, 2010)  (KNELS (I ) , 1=1 , NELS) 

2010  FORMAT (/ ' DWAT  ELEMENTS: '/( 1 615 ) ) 

RETURN 

END 

SUBROUTINE  BLEXCA 

C TO  CALL  BLOCK  'EXCA'  (EXCAVATION) 

C TO  ASSEMBLE  EQUIVALENT  NODAL  LOADS  ON  EXCAVATED  SURFACE 

IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTERS  TBL 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1  NPEM , NELS 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M, Ml, ME, M3, MM, MR, MP,M7, MS, M9,MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE, LNE , LPREE , LNPEG , LSDEG , LDLE , LKE.LFE, LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG, LNELS, LEB,LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VA(20000 ) 

DATA  TBL/’ NELS'/ 



WRITE (*,3000) 

3000  FORMATC  BLEXCA') 

ISEQ=3 
IASSEL= 1 
I3AR=0 

READ(MR, 1000)  NELS 
1000  FORMAT (15) 

WRITE (MP, 2000)  M, NELS 

2000  FORMAT (/ / ' ASSEMBLING  OF  EXCAVATION  LOADS  (M= ’ , 12, ' ) ' /IX, MO ( ' = ' ) / 
1 15X, 'NUMBER  OF  EXCA  ELEMENTS  (NELS)= ' , 15/) 

IF(NELS.EQ.O)  WRITE(MP,2010) 

2010  FORMAT (/ / ' **  ERROR,  NO  ELEMENT  FOR  (EXCA)'/) 

IF(NELS.EQ.O)  STOP 

CALL  ESPACE (NELS, 0 , TBL, LNELS) 

CALL  EXEXCA(VA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) , VA(LNPEG) , 

1 VA(LPREE) , VA(LNE) , VA(LKE) ,VA(LFE) ,VA(LKGS) , VA(LKGD) ,VA(LKGI) , 

2 VA(LFG) ,VA(LNEQ) ,VA(LDLNC) , VA(LPREG) , VA(LSDEG) , VA(LDLG) , 

3 VA(LDLE) , VA(LRES) ,VA( LNELS) ) 

CALL  DSPACE (LNELS, 0 , TBL) 
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RETURN 

END 

SUBROUTINE  EXEXCA( KLD , VDIMP , KLOCE , VCORE, KNPEG , VPREE, KNE, VKE  VFE 
r 1 VKGS  * VKGD  * VKGI * VFG  > KNEQ , KDLNC , VPREG, KSDEG , VDLG , VDLE , VRES , KNELS ) 

C TO  EXECUTE  BLOCK  'EXCA' 

C ASSEMBLE  EQUIVALENT  NODAL  LOADS  (ELEMENT  FUNCTION  5) 

IMPLICIT  REAL*8 (A-H,0-Z) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
1 NP EM, NELS 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

DIMENSION  KLD( *) ,VDIMP(») ,XLOCE(») ,VCORE(*) ,KNPEG(») ,VPREE(») 

1 KNE(») ,VKE(*) ,VFE(*) ,VKGS(») ,VKGD(») ,VKGI(») ,VFG(») ,KNEQ(*) ' 

2 KDLNC( * ) , VPREG(*) ,KSDEG(*) ,VDLG(*) ,VDLE(*) ,VRES(*) , KNELS(*) ' 
DATA  ZERO/O. DO/ 



c INITIALIZE  VFG  AND  VRES 

DO  10  1=1, NEQ 
VRES(I )=ZERO 
10  VFG (I )=ZERO 

C READ  'AIR'  ELEMENT  PROPERTY  NUMBER 

READ(MR, 1000)  IGPE 
1000  FORMAT (15) 

C READ  AN  ELEMENT  EXCAVATION  CARD 

KK=0 

20  READ(MR, 1100)  IEL , IGEN , INCR 
1100  FORMAT (315) 

IF(IEL.LE.O)  GO  TO  40 
DO  30  IE= 1 , IGEN 
KK=KK+1 
KNELS(KK)=IEL 
30  IEL=IEL+INCR 

GO  TO  20 

C ASSEMBLE  NEW  TOTAL  FG 

40  CALL  ASFGT (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 

1 VKGD , VKGI , VFG , VPREG , KSDEG , VDLE , VDLG , VRES , KNELS ) 

C ASSEMBLE  NEW  FG 

CALL  ASFGO (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 

1 VKGD , VKGI , VFG , VP  REG , KSDEG , VDLE , VDLG , KNELS ) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000)  (VFG(I ) , 1=1 , NEQ) 

2000  FORMAT (/ ' EXCAVATION  LOAD  VECTOR  (FG) ' /( IX, 10E 12. 5) ) 

WRITE (MP, 2010)  (KNELS (I ) , 1=1 , NELS) 

2010  FORMAT (/'  EXCA  ELEMENTS: '/( 1615) ) 

C CHANGE  EXCAVATION  ELEMENT  TO  AIR  ELEMENT 

DO  60  1=1, NELS 
IEL=KNELS(I ) 

KNPEG(IEL)=IGPE 
60  CONTINUE 
RETURN 
END 
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SUBROUTINE  BLEMBA 


TO  CALL  BLOCK  ' EMBA ' (BACKFILL  OR  CONCRETE  PLACEMENT) 
TO  ASSEMBLE  EQUVALENT  NODAL  LOADS  DUE  TO  EMBANKMENT 


IMPLICIT  REAL*8 (A-H , 0-Z ) 

CHARACTER*4  T3L 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1  NP EM, NELS 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS, M9 , MH 

COMMON/LOCA/LCORG , LDLNC, LNEQ , LDIMP , LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG, LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 
COMMON  VA(20000 ) 

DATA  TBL/'NELS'/ 


WRITE (*,3000) 

3000  FORMAT ('  BLEMBA') 

ISEQ=4 
IASSEL= 1 
IBAR=0 

READ(MR, 1000)  NELS 
1000  FORMAT (15) 

WRITE(MP, 2000)  M, NELS 
2000  FORMAT (//’  ASSEMBLING  OF  EMBANKMENT 
1 15X, 'NUMBER  OF  EMBA  ELEMENTS 

IF ( NELS. EQ. 0 ) WRITE (MP, 20 1 0 ) 

2010  FORMAT (/ / ' **  ERROR,  NO  ELEMENT  FOR 
IF(NELS.EQ.O)  STOP 
CALL  ESPACE(NELS,0, TBL, LNELS) 

CALL  EXEMBA( VA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) ,VA(LNPEG) , 

1 VA(LPREE) , VA(LNE) , VA(LKE) ,VA(LFE) ,VA(LKGS) , VA(LKGD) ,VA(LKGI) , 

2 VA(LFG) , VA(LNEQ) ,VA( LDLNC) ,VA( LPREG) ,VA( LSDEG) , VA(LDLE) , 

3 VA(LDLG) ,VA( LNELS) ) 

CALL  DSPACE(LNELS,0,TBL) 

RETURN 

END 

SUBROUTINE  EXEMBA(KLD,VDIMP,KLOCE, VCORE.KNPEG, VPREE,KNE, VKE, VFE, 
1 VKGS , VKGD , VKGI , VFG, KNEQ, KDLNC , VPREG , KSDEG , VDLE , VDLG , KNELS) 


C TO  EXECUTE  BLOCK  'EMBA' 

C ASSEMBLE  EQUIVALENT  NODAL  LOADS  (ELEMENT  FUNCTION  4) 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM, NELS 

COMMON/ASSE/NEQ, NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

DIMENSION  KLD(») ,VDIMP(») ,KLOCE(») ,VCORE(») ,KNPEG(») ,VPREE(») , 

1 KNE(») ,VKE(») ,VFE(») ,VKGS(») ,VKGD(») ,VKGI(*) ,VFG(*) ,KNEQ(») , 

2 KDLNC ( * ) , VPREG(* ) , KSDEG ( * ) ,VDLE(») ,VDLG(») ,KNELS(») 


LOADS  ( M=', 12, ')'/1X, 40 ('=')/ 
(NELS)s' ,15/) 


EMBA'/) 
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DATA  ZERO/O. DO/ 



C INITIALIZE  VFG 

DO  10  1=1, NEQ 
10  VFG(I)=ZERO 

C READ  AN  ELEMENT  EMBANKMENT  CARD 

KK=0 

20  READCMR, 1000)  IEL , IGEN , INCR, IGPE 


1000  FORMAT (415) 

IF(IEL.LE.O)  GO  TO  40 
DO  30  IE=1 , IGEN 
KK=KK+1 
KNELS(KK)=IEL 
KNPEG(IEL)=IGPE 
30  IEL=IEL+INCR 
GO  TO  20 

C ASSEMBLE  NEW  FG 

40  CALL  ASFGO (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 

1 VKGD , VKGI , VFG , VP  REG , KSDEG , VDLE , VDLG , KNELS ) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000 ) (VFG(I ) ,1=1 , NEQ) 

2000  FORMAT (/ ' EMBA  LOAD  VECTOR  (FG) ' /( IX, 10E12.5) ) 

WRITE (MP, 2010)  (KNELS (I ) ,1=1, NELS) 

2010  FORMAT (/ ' EMBA  ELEMENTS: '/( 1 615 ) ) 

RETURN 

END 

SUBROUTINE  BLFWAT 

C TO  CALL  BLOCK  'FWAT ' (RAISE  WATER  TABLE  LEVEL) 

C TO  ASSEMBLE  EQUVALENT  NODAL  LOADS  DUE  TO  RAISE-  OF  WATER  TABLE 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

CHARACTER*4  TBL 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM, NELS 

COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9.MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP, LCODE , LINTF , LP  REG , LLD , LLOCE , 

1 LCORE, LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG, LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ , IASSEL , IBAR 
COMMON  VA( 20000) 

DATA  TBL/ ’NELS'/ 



WRITE (*,3000) 

3000  FORMAT ('  BLFWAT') 

ISEQ=8 

IASSEL=0 

IBAR=0 

READ(MR, 1000)  NELS 
1000  FORMAT (15 ) 

WRITE(MP, 2000 ) M, NELS 

2000  FORMAT (//'  ASSEMBLING  OF  FWAT  LOADS  (M= ' , 12, ' ) ' /IX, 40 ( ' = ' ) / 

1 15X, 'NUMBER  OF  FWAT  ELEMENTS  (NELS)= ' ,15/) 

IF(NELS.EQ.O)  WRITE(MP, 20 1 0 ) 
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2010  FORMAT (/ / ' **  ERROR,  NO  ELEMENT  FOR  FWAT ' / ) 

IF(NELS.EQ.O)  STOP 

CALL  ESPACE ( NELS , 0 , TBL , LNELS ) 

CALL  EXFWAT(VA(LLD) ,VA(LDIMP) , VA(LLOCE) ,VA(LCORE) ,VA(LNPEG) , 

1 VA(LPREE) ,VA(LNE) ,VA(LKE) ,VA(LFE) , VA(LKGS) ,VA(LKGD) ,VA(LKGI) , 

2 VA(LFG) , VA(LNEQ) , VA(LDLNC) , VA(LPREG) , VA ( LSDEG ) , VA ( LDLE ) 

3 VA(LDLG) ,VA( LNELS) ) 

CALL  DSP ACE (LNELS, 0, TBL) 

RETURN 

END 

SUBROUTINE  EXFWAT (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , 
1 VKGS » VKGD  * VKGI * VFG, KNEQ , KDLNC , VP REG, KSDEG , VDLE , VDLG , KNELS ) 

C TO  EXECUTE  BLOCK  ’FWAT' 

C ASSEMBLE  EQUIVALENT  NODAL  LOADS  (ELEMENT  FUNCTION  6) 

IMPLICIT  REAL *8 (A-H.O-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL, NTPE, NSDG, NLAG, NIDENT, NPG, NSEM, 

1 NPEM,NELS 

COMMON/ASSE/NEQ, NSYM, NKG, NKE, NDLE 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 

DIMENSION  KLD( *) ,VDIMP(») ,KLOCE(*) ,VCORE(») ,KNPEG(*) ,VPREE(*) , 

1 KNE(*) , VKE ( * ) , VFE ( * ) , VKGS ( * ) ,VKGD(») ,VKGI(*) ,VFG(») ,KNEQ(*) , 

2 KDLNC( *) ,VPREG(*) ,KSDEG(*) ,VDLE(*) ,VDLG(*) ,KNELS(») 


DATA  ZERO/O. DO/ 
r ,, 

C INITIALIZE  VFG 

DO  10  1=1, NEQ 
10  VFG(I )=ZERO 

C READ  AN  ELEMENT  FWAT  CARD 

KK=0 

20  READ(MR, 1000)  IEL , IGEN , INCR 


1000  FORMAT (315) 

IF(IEL.LE.O)  GO  TO  40 
DO  30  IE= 1 , IGEN 
KK=KK+1 
KNELS(KK)=IEL 
KSDEG(IEL)= 1 
30  IEL=IEL+INCR 
GO  TO  20 

C ASSEMBLE  NEW  FG 

40  CALL  ASFGO (KLD , VDIMP , KLOCE , VCORE , KNPEG , VPREE , KNE , VKE , VFE , VKGS , 

1 VKGD , VKGI , VFG, VPREG , KSDEG , VDLE , VDLG , KNELS ) 

C OUTPUT 

IF(M.EQ.I)  WRITE (MP, 2000 ) (VFG(I ) ,1=1 , NEQ) 

2000  FORMAT (/'  FWAT  LOAD  VECTOR  (FG) ' /( IX, 10E 12. 5 ) ) 

WRITE (MP , 2010 ) (KNELS(I), 1=1 , NELS) 

2010  FORMAT (/’  FWAT  ELEMENTS: ’/( 1 615 ) ) 

RETURN 

END 

SUBROUTINE  ASFGT (KLD, VDIMP, KLOCE , VCORE , KNPEG, VPREE , KNE, VKE, VFE, 
1 VKGS, VKGD, VKGI, VFG, VPREG, KSDEG, VDLE, VDLG, VRES, KNELS) 
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UPDAiE  AND  ASSEMBLE  TOTAL  EQUIVALENT  NODAL  LOADS  AFTER  DELETING 
THE  EXCAVATED  FREE  BODY 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG . NSEM 
1 NPEM.NELS 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL 
1 IPG , ICODE, IMATD , INSE , INPE , IDLEO , INELO, IPGO , IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS, M9 , MH 
DIMENSION  KLD(*) ,VDIMP(*) ,KLOCE(*) ,VCORE(*) ,KNPEG(*) ,VPREE(*) 

1 KNE(*) ,VKE(») ,VFE(*),VKGS(») ,VKGD(*) ,VKGI(») ,VFG(») ,VPREG(* j 

2 KSDEG ( * ) , VDLE ( * ) , VDLG ( * ) ,VRES(*) ,KNELS(») 


f 


LOOP  OVER  SPECIFIED  ELEMENTS 

DO  30  N=1 , NELS 

READ  AN  ELEMENT  FROM  FILE  ME 

IEL=KNELS(N) 

CALL  RDELEM ( ME , KLOCE , VCORE , KNE ) 

EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF( ITPE. EQ. ITPE 1 ) GO  TO  20 
IC0DE=2 

CALL  ELEMLBC  VCORE , VPREE , VDLE , VKE , VFE ) 

— EVALUATE  ELEMENT  NODAL  FORCES  DUE  TO  STRESSES  AT  G.P. 
IF(NLAG.GT.O)  CALL  DLELM(KLOCE , VDLG, VDIMP , VDLE ) 

IC0DE=9 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE , VFE ) 

— ASSEMBLE 

CALL  ASSEL (0,1, IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI . VRES ) 
ITPE 1 =ITPE 

— UPDATE  TOTAL  LOAD  VECTOR 
DO  40  1=1, NEQ 

VRES ( NDLT+I )= VRES (NDLT+I )-VRES(I ) 

RETURN 

END 

SUBROUTINE  ASFGOCKLD, VDIMP, KLOCE, VCORE, KNPEG, VPREE, KNE, VKE, VFE, 
VKGS , VKGD , VKGI , VFG , VPREG , KSDEG , VDLE , VDLG , KNELS ) 

ASSEMBLE  EQUIVALENT  NODAL  LOADS  FOR  EXCAVATION  AND  EMBANKMENT 


IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 
NPEM.NELS 

COMMON /ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
IPG , ICODE , IMATD , INSE , INPE , IDLEO , INELO , IPGO , IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 

DIMENSION  KLD(*) ,VDIMP(») ,KLOCE(») ,VCORE(») ,KNPEG(») ,VPREE(») , 
KNE ( *) , VKE(* ) , VFE ( * ) , VKGS(* ) , VKGD( *) , VKGI ( * ) , VFG(* ) , VPREGC  *) , 
KSDEG( *) ,VDLE(») ,VDLG(*) ,KNELS(») 
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C LOOP  OVER  THE  SPECIFIED  ELEMENTS 

DO  30  N=1 , NELS 

C READ  AN  ELEMENT  FROM  FILE  ME 

IEL=KNELS(N) 

WRITE (*,3000)  IEL 

3000  FORMAT ( ' ELEMENT  LOAD  VECTOR ’,15) 

CALL  RDELEMC ME , KLOCE , VCORE , KNE ) 

IC= (KNPEG(IEL)-I ) * (NPRE+NPRM) 

DO  10  1=1 , NPRE+NPRM 
10  VPREE(I )=VPREG(IC+I ) 

c EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF(ITPE.EQ.ITPEI)  GO  TO  20 
IC0DE=2 

CALL  ELEMLB( VCORE , VPREE , VDLE , VKE , VFE ) 

C GENERATE  ELEMENT  D.O.F.  FOR  LAGRANGIAN  FORMULATION 

IF(NLAG.GT.O)  CALL  DLELM( KLOCE , VDLG, VDIMP , VDLE ) 


C EVALUATE  ELEMENT  VECTOR 

IC0DE=4 

IFCISEQ.EQ.3)  IC0DE=5 

CALL  ELEMLBC VCORE, VPREE, VDLE, VKE, VFE) 

C PRINT  ELEMENT  VECTOR  VFE 

IF( M.GE. 2)  WRITE (MP, 2000)  IEL, (VFE(I ) ,1=1 , IDLE) 

2000  FORMATC/ ' VECTOR  (FE)  , ELEMENT: ' ,15/ ( 10X, 10E12  5)) 

C ASSEMBLE 

CALL  ASSEL(0, 1 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI  VFG ) 

30  ITPE 1 =ITPE  ’ 

RETURN 

END 

SUBROUTINE  BLBARA 
C TO  CALL  BLOCK  'BARA' 

TO  MODIFY  GLOBAL  ELEMENT  PROPERTY  TABLE  (KNPEG ) AFTER  ADDING  BARS 


IMPLICIT  REAL*3 (A-H,0-Z) 

CHARACTER*4  TBL 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NP EM, NELS 

COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS, M9 , MH 
COMMON/LOCA/LCORG, LDLNC , LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG, LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VAC 20000) 

DATA  TBL/ 'NELS'/ 

ISEQ=5 

IBARrl 

READ(MR, 1000)  NELS 
1000  FORMAT (15) 

WRITE (MP, 2000)  M, NELS 

2000  FORMAT (/ / ' ADDING  BAR  ELEMENTS  (M= ' ,12, ' ) '/1X,40( '=' )/ 

1 15X, 'NUMBER  OF  ADDED  BAR  ELEMENTS  (NELS)= ' 15/) 

IF(NELS.EQ.O)  WRITE (MP, 20 10 ) 

2010  FORMAT (/ / ' **  ERROR,  NO  BAR  IS  ADDED  (NBAR=0 ) ' /) 
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IF(NELS.EQ.O)  STOP 
CALL  ESPACE(NELS,0,T3L, LNELS) 
CALL  EXBARACVA(LNPEG) , VA(LNELS) ) 
CALL  DSP ACE (LNELS, 0, TBL) 

RETURN 

END 

SUBROUTINE  EXBARA(KNPEG, KNELS) 


TO  EXECUTE  BLOCK  'BARA'  AND  MODIFY  MATRIX  KNPEG 


IMPLICIT  REALS ( A-H , 0-Z) 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM , NELS 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS,  M9 , MH 
DIMENSION  KNPEG(*) ,KNELS(*) 

C 

1 = 1 

10  READCMR, 1000)  IEL,IGPE 

1000  FORMAT (215 ) 

IF(IEL.LE.O)  GO  TO  20 
KNELS(I )=IEL 
KNPEG(IEL)=IGPE 
1=1  + 1 
GO  TO  10 

20  WRITE (MP, 2000)  (KNELS (I ), 1=1 , NELS) 

2000  FORMAT (/ ' ADDED  BAR  ELEMENTS: '/( IX, 1615) ) 

RETURN 

END 

SUBROUTINE  BLBARD 
C TO  CALL  BLOCK  'BARD' 

C GENERATE  CONCENTRATED  LOADS  DUE  TO  DELETION  OF  BAR  ELEMENTS 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

CHARACTERS  TBL 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM, NELS 

COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

COMMON/LOCA/LCORG , LDLNC , LNEQ , LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE, LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES,LDLG, LNELS, LEB.LPB 
COMMON/SEQU/NSEQ , NSEQO , ISEQ, IASSEL , IBAR 
COMMON  VA(20000 ) 

DATA  TBL/ 'NELS'/ 

ISEQ=6 

IASSEL=1 

I3AR=0 

READ(MR, 1000)  NELS 
1000  F0RMAT(I5) 

WRITE (MP, 2000)  M, NELS 

2000  FORMAT (//'  ASSEMBLING  OF  BAR-DELETION  LOADS  (M=',I2,')V 

1 IX, 40 ( '=' )/15X, 'NUMBER  OF  DELETED  BAR  ELEMENTS  (NELS)= ' ,15/) 
IF(NELS.EQ.O)  WRITE (MP, 20 1 0 ) 
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2010  FORMAT (// ' ERROR,  NO  BAR  IS  DELETED  (NELS=0)'/) 

IF(NELS.EQ.O)  STOP 

CALL  ESPACE (NELS , 0 , TBL, LNELS) 

CALL  EX3ARD(VA(LFG) ,VA(LCORE)  ,VA(LPREG)  ,VA(LPREE) , VA(LDLNC) , 

1 VA(LLOCE) ,VA(LNE) , VA(LKE) , VA(LFE) , VA(LDLE) , VA(LKGS) , VA(LKGD) , 

2 VA(LKGI)  ,VA(LLD) , VA(LNEQ) , VA(LNPEG) ,VA( LNELS) ) 

CALL  DSPACE(LNELS, 0, TBL) 

RETURN 

END 

SUBROUTINE  EXBARD(VFG, VCORE, VP REG, VPREE,KDLNC,KLOCE,KNE, VKE, VFE, 
1 VDLE , VKGS , VKGD , VKGI , KLD , KNEQ, KNPEG , KNELS ) 

C TO  EXECUTE  BLOCK  'BARD' 

C GENERATE  CONCENTRATED  LOADS  AND  UPDATE  VECTOR  KNPEG 

IMPLICIT  REAL*8 (A-H ,0-Z ) 

COMMON/PREL/NGPE , NPRE , NPRM, NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE, NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NP EM, NELS 

COMMON/ASSE/NEQ , NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE, IMATD, INSE , INPE, IDLEO, INELO, IPGO, IRES 
DIMENSION  VFG(*) , VCORE (*) , VPREG(*) ,VPREE(*) ,KDLNC(*) ,KLOCE(*) , 

1 KNE(») , VKE ( * ) , VFE ( * ) , VDLE ( * ) , VKGS ( * ) ,VKGD(*) ,VKGI(») ,KLD(*) , 

2 KNEQ(*),KNPEG(») ,KNELS(*) 

DATA  ZERO/O. DO/ 



C INITIALIZE  VFG 

DO  10  1=1, NEQ 
10  VFG (I )=ZERO 

IN=1 

20  READCMR, 1000)  IEL 

1000  FORMAT (15) 

IF(IEL.EQ.O)  GO  TO  40 
KNELS(IN)=IEL 

C READ  ELEMENT  IEL  FROM  FILE  ME 

CALL  RDELEMC ME, KLOCE, VCORE, KNE) 

IC= (KNPEG(IEL)-I )*(NPRE+NPRM) 

DO  30  1=1 , NPRE+NPRM 
30  VPREE (I )=VPREG(IC+I ) 

IC0DE=5 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE , VFE ) 

CALL  ASSEL (0 , 1 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI , VFG ) 

C UPDATE  NEW  KNPEG 

KNPEG(IEL)=0 
INsIN+1 
GO  TO  20 

40  WRITECMP.2000)  (KNELS(I) , 1=1 , NELS) 

2000  FORMATC/'  DELETED  BAR  ELEMENTS: '/( 1615) ) 

IF(M.GE.I)  WRITE (MP, 20 10)  (VFG(I ) , 1=1 , NEQ) 

2010  FORMATC  BARD  LOAD  VECTOR  (FG) ' / ( 1 X,  10E 12. 5 ) ) 

RETURN 

END 
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SUBROUTINE  BLLINM 


TO  CALL  BLOCK  'LINM ' 

ASSEMBLE  AND  SOLVE  A LINEAR  PROBLEM  IN  CORE 


IMPLICIT  REAL*8 (A-H , O-Z ) 
CHARACTER*4  T3L 


COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
1 NPEM.NELS 

COMMON/ ASSE/NEQ, NSYM, NKG , NKE, NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 

COMMON/LOCA/LCORG, LDLNC , LNEQ , LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG, LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NP AS , NITER , ITER , IMETH , ILAG , INLN 
COMMON  VAC20000) 

DIMENSION  T3L(9 ) 

DATA  TBL/' KGS  ','KGD  ','KGI  ','FG  ',»KE  ','FE  ' ,'RES  ' 'OLE  ' 

1 'DLG  '/  ’ ’ 


ILAG=0 

INLN=0 


NSEQ=NSEQ+1 
WRITE (MP, 1000)  M 

1000  FORMAT  (/  / • ASSEMBLING  AND  LINEAR  SOLUTION  (M= ' , 12, ' ) ' / ' ' ROC-')) 
IF(NSEQ.NE.I)  GO  TO  10 

C OPEN  DIRECT  ACCESS  FILE  MS  (STRESSES,  STRAINS  & PWPS) 

LS=NSEM*8 

OPEN (MS,FILE= 'MS. DAT ' ,STATUS= ' NEW' ,ACCESS= ' DIRECT ' ,RECL=LS) 

C to  ALLOCATE  SPACE 

IF(LKGS.EQ.I)  CALL  ESPACE ( NKG , 1 , TBL ( 1 ) , LKGS ) 

IF(LKGD.EQ.I)  CALL  ESPACE(NEQ, 1 ,TBL(2) ,LKGD) 

IF(NSYM.EQ. 1. AND. LKGI. EQ.1)  CALL  ESPACE (NKG, 1 , TBL(3 ), LKGI ) 
IF(LFG.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL(4 ), LFG) 

IF(LKE.EQ.I)  CALL  ESPACE (NKE, 1 , TBL (5 ) ,LKE) 

IF(LFE.EQ.I)  CALL  ESPACE(NDLE, 1 ,TBL(6) ,LFE) 

IF(LRES.EQ.I)  CALL  ESPACE (NDLT+NEQ, 1 , TBL (7 ) ,LRES) 

IF(LDLE.EQ.I)  CALL  ESPACE (NDLE , 1 , TBL(8 ), LDLE) 

IF(LDLG.EQ.I)  CALL  ESPACE (NEQ, 1 ,TBL(9 ) ,LDLG) 

C TO  EXECUTE  THE  BLOCK 

10  CALL  EXLINM(VA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) ,VA(LCODE) , 

1 VA(LINTF) , VA(LPREG) , VA(LPREE) ,VA(LNE) ,VA(LKE) ,VA(LFE) ,VA(LKGS) , 

2 VA(LKGD) ,VA(LKGI) ,VA(LFG) ,VA(LCORG) ,VA(LDLNC) ,VA(LNEQ) , 

3 VA(LNPEG) ,VA(LRES) ,VA(LSDEG) , VA(LDLE) , VA(LDLG) ) 

RETURN 

END 

SUBROUTINE  EXLINM(KLD , VDIMP , KLOCE , VCORE , KCODE , KINTF, VPREG , VP REE , 

1 KNE, VKE, VFE , VKGS , VKGD , VKGI , VFG, VCORG , KDLNC , KNEQ, KNPEG , VRES , 

2 KSDEG , VDLE , VDLG ) 

C TO  EXECUTE  BLOCK  'LINM' 

C ASSEMBLE  AND  SOLVE  A LINEAR  PROBLEM  IN  CORE 
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IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/COND/NCLT, NCLZ , NCLNZ 

COMMON/ELEM/NELT , NMEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
1 NPEM.NELS 

COMMON/ ASSE/NEQ, NSYM,NKG, NKE, NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS  f M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 

DIMENSION  KLD(») ,VDIMP(») ,KLOCE(*) ,VCORE(») ,KCODE(») ,KINTF(») 

1 VPREG(») ,VPREE(») ,KNE(*) ,VKE(*) ,VFE(*) ,VKGS(*) ,VKGD(») ,VKGI(») , 

2 VFG(*) , VCORG(*) ,KDLNC(*) ,KNEQ(*) ,KNPEG(») , VRES(») ,KSDEG(») . 

3 VDLE(*),VDLG(») 

DATA  ZERO/O. DO/ 

C INITIALIZE  FILE  MS 

IF(NSEQ.EQ. 1)  CALL  INITMS(NELT, NSEM, MS) 

C SAVE  UNMODIFIED  VECTOR  VFG  (BY  B.C.)  IN  VECTOR  VRES 

DO  10  1=1, NEQ 

10  VRES ( NDLT+I ) = VRES (NDLT+I )+VFG(I ) 

IF(M.GE.2)  WRITE (MP , 2000 ) (VFG(I ) , 1=1 , NEQ) 

2000  FORMAT(/ * GLOBAL  LOAD  VECTOR  NON  MODIFIED  BY  B.C.  (FG)' 

1/ ( IX, 10E12.5) ) 

C DETERMINE  IF  THE  GLOBAL  MATRIX  IS  TO  BE  ASSEMBLED 

IKT=0 

IF ( NCLNZ. NE.O)  IKT=1 
IF( IASSEL. EQ. 1 ) IKT=1 
IF(IKT.EQ.O)  GO  TO  50 

c DETERMINE  IF  THE  GLOBAL  MATRIX  IS  TO  BE  INITIALIZED 

IF(NSEQ.EQ. 1 ) GO  TO  40 
DO  20  1=1, NKG 
VKGS(I)=ZERO 


20  IF(NSYM.EQ.I)  VKGI(I)=ZERO 

DO  30  1=1 , NEQ 
30  VKGD(I )=ZERO 

C ASSEMBLE  KG,  MODIFY  FG  FOR  THE  B.C. 

40  CALL  ASKG(KLD, VDIMP , KLOCE, VCORE ,KCODE, KINTF, VPREG, VPREE , KNE, 
1 VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE, VDLG ) 
IF(ISEQ.NE.O)  GO  TO  50 
C PRINT  KG  AND  FG 


IF( M. LT. 2)  GO  TO  50 

WRITE (MP, 2005)  ( VKGS (I ) , 1= 1 , NKG) 

2005  FORMAT (/’  GLOBAL  MATRIX  (KG)'/'  UPPER  TRIANGLE'/ 

1 ( IX, 10E12.5) ) 

WRITE(MP,2010)  (VKGD(I) ,1=1 ,NEQ) 

2010  FORMAT ( ' DIAGONAL '/( 1 X, 10E 12. 5 ) ) 

IF(NSYM.EQ.I)  WRITE (MP, 2020)  (VKGI (I ), 1=1 , NKG) 

2020  FORMAT ( ' LOWER  TRIANGLE '/( 1 X, 10E 12. 5 ) ) 

WRITE (MP, 2030)  (VFG(I) ,1=1 ,NEQ) 

2030  FORMAT (/ ' GLOBAL  LOAD  VECTOR  MODIFIED  BY  THE  B.C.  (FG)' 

1 /(IX, 10E12.5)) 

C SOLVE 

50  CALL  SOL (VKGS, VKGD, VKGI, VFG, KLD, NEQ, MP, IKT, 1 , NSYM, ENERG) 
IF(ISEQ.NE.O)  GO  TO  60 
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IFCNSYM.NE.  1 ) WRITECMP, 2040)  ENERG 
2040  FORMAT (15X, 'ENERGY  ( ENERG)= ' , 1 E 12. 5 ) 

IF(M.LT. 2)  GO  TO  60 

WRITECMP, 2050 ) ( VKGS (I ) , 1 = 1 , NKG) 

2050  FORMAT (/ ' TRIANGULARIZED  MATRIX  (KG)'/'  UPPER  TRIANGLE'/ 

1 (IX, 10E12.5)) 

WRITECMP, 2010)  (VKGD(I) ,1=1 ,NEQ) 

IF(NSYM.EQ.I)  WRITECMP, 2020)  (VKGI (I ), 1=1 , NKG) 

C PIVOTS  OF  KG  AND  DETERMINANT 

CALL  PRPVTS(VKGD) 

C UPDATE  THE  SOLUTION 

60  DO  70  1=1, NEQ 

70  VDLG(I)=VDLG(I)+VFG(I ) 

C PRINT  THE  SOLUTION 

WRITECMP, 2060) 

2060  FORMAT (//'  SOLUTION'//) 

CALL  PRSOLCKDLNC , VCORG, VDIMP, KNEQ, VDLG) 

C EVALUATE  AND  UPDATE  STRESSES,  STRAINS  AND  PWPS 

CALL  ASGRADCKLD , VDIMP , KLOCE , VCORE , KCODE , KINTF , VPREG , VPREE , KNE , 
1 VKE.VFE, VKGS, VKGD, VKGI, VFG,KNPEG,KSDEG, VDLE, VDLG, NRES) 
IFCISEQ.NE. 1 ) GO  TO  90 
DO  80  1=1 , NEQ 


80  VDLG ( I )=ZERO 

c FOR  the  problem  without  construction  sequences 

c EVALUATE  AND  PRINT  EQUILIBLIUM  RESIDUAL  VECTOR 

C ASSEMBLE  THE  RESIDUALS 

90  IFCISEQ.NE. 0)  RETURN 


DO  100  1=1, NEQ 
100  VRESCI )=-VRES(NDLT+I ) 

CALL  ASRESD (1,1, KLD, VDIMP , KLOCE , VCORE , VPREG , VPREE , KNE , VKE , VFE , 
1 VKGS, VKGD, VKGI, VFG, KNPEG , KSDEG , VDLE, VDLG, VRES, VRES ( NEQ+1 )) 

C PRINT  THE  RESIDUALS 

WRITECMP, 2070) 

2070  FORMATC//'  EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRSOLCKDLNC, VCORG, VRESCNEQ+1 ), KNEQ, VRES) 

RETURN 

END 

SUBROUTINE  ASKG (KLD, VDIMP, KLOCE, VCORE, KCODE, KINTF, VPREG, VPREE, 
1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE , VDLG ) 

C TO  ASSEMBLE  GLOBAL  MATRIX  KG  (ELEMENT  FUNCTIONS) 

C TAKING  INTO  ACCOUNT  OF  NON  ZERO  PRESCRIBED  D.O.F. 

IMPLICIT  REAL*8 ( A-H , 0— Z ) 

COMMON/COND/NCLT , NCLZ , NCLNZ 
COMMON/PREL/NGPE , NPRE, NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM , NELS 

COMMON/ASSE/NEQ, NSYM.NKG, NKE, NDLE 

COMMON/ RGDT/I EL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL 
1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NUMB/M , Ml , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/NLIN/EPSDL , OMEGA , DP AS , UPAS , NITER , ITER , IMETH , ILAG , INLN 
DIMENSION  KLD(») ,VDIMP(*) ,KLOCE(») ,VCORE(»)  ,KCODE(») ,KINTF(») , 
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1 VPREG ( * ) ,VPREE(*) ,KNE(») ,VKE(*) ,VFE(») ,VKGS(») ,VKGD(») , 

2 VKGI ( *) , VFG( * ) , KNPEG ( * ) , KSDEG( * ) ,VDLE(*) ,VDLG(») 



C LOOP  OVER  THE  ELEMENTS 

DO  30  IEL=1 , NELT 
IGPE=KNPEG(IEL) 

WRITE(*,3000)  IEL 

3000  FORMAT ('  ELEMENT  STIFFNESS  MATRIX ’,15) 


C READ  AN  ELEMENT  ON  FILE  M2 

CALL  RDELEM( ME , KLOCE , VCORE , KNE) 

IC= (IGPE-1 ) * (NPRE+NPRM) 

DO  10  1=1 , NPRE+NPRM 
10  VPREE(I )=VPREG (IC+I ) 

IMODEL=KCODE(IGPE) 

IFEL=KINTF(IGPE) 

IF(NSDG.GT.O)  ISDE=KSDEG(IEL) 

C SKIP  COMPUTATION  IF  IDENTICAL  ELEMENTS  ENCOUNTERED 

IF(NIDENT.EQ. 1 .AND. IEL. GT. 1 ) GO  TO  20 

C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF(ITPE.EQ.ITPEI)  GO  TO  15 
IC0DE=2 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE, VFE ) 

C GENERATE  ELEMENT  D.O.F.  FOR  LAGRANGIAN  FORMULATION 

15  IF(ILAG.GT.O)  CALL  DLELM( KLOCE , VDLG , VDIMP , VDLE ) 

C FORM  ELEMENT  MATRIX 

IC0DE=3 

CALL  ELEMLB (VCORE , VPREE , VDLE , VKE , VFE ) 

C PRINT  ELEMENT  MATRIX 


IF(M.LT. 2)  GO  TO  20 
IF(NSYM.EQ.O)  IKE=IDLE*(IDLE+1 )/2 
IF(NSYM.EQ.I)  IKE=IDLE*IDLE 
WRITECMP.2000)  IEL , (VKE (I ), 1=1 , IKE) 

2000  FORMAT (/’  MATRIX  (KE)  , ELEMENT: ',15/ ( 1 0X, 10E 12. 5 ) ) 


C MODIFY  FG  FOR  NON  ZERO  PRESCRIBED  D.O.F.  (LINEAR) 

20  IF ( NCLNZ . NE. 0 ) CALL  MODFG( IDLE, NSYM, KLOCE, VDIMP, VKE, VFG) 

C ASSEMBLE 

CALL  ASSEL ( 1 , 0 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI , VFG ) 
30  ITPE 1 =ITPE 
RETURN 
END 


SUBROUTINE  ASGRAD (KLD , VDIMP , KLOCE , VCORE , KCODE, KINTF , VPREG , VPREE , 
1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG, KNPEG , KSDEG , VDLE , VDLG , NRES ) 

C TO  EVALUATE  AND  PRINT  GRADIENTS  (STRESSES  AT  ELEMENT  G.P. 

C (ELEMENT  FUNCTION  9) 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT, NNEL , NKEL, NTPE, NSDG, NLAG, NIDENT, NPG, NSEM, 

1 NPEM, NELS 

COMMON/ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE, IMATD, INSE , INPE, IDLEO , INELO, IPGO,  IRES 
COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
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COMMON/NLIN/EPSDL , OMEGA , DPAS , NPAS , NITER , ITER , IMETH , ILAG , INLN 
DIMENSION  KLD( *) ,VDIMP(») ,KLOCE(*) ,VCORE(*) ,KCODE(*) ,KINTF(*) , 

1 VPREG(*),VPREE(*),KNE(*),VKE(*),VFE(*),VKGS(*),VKGD(*), 

2 VKGI(*) ,VFG(*) ,KNPEG(#) ,KSDEG(») ,VDLE(*) ,VDLG(») 




MRES=0 

C LOOP  OVER  THE  ELEMENTS 

DO  50  IEL=1 , NELT 
IGPE=KNPEG(IEL) 

C READ  THE  ELEMENT 

CALL  RDELEM( ME , KLOCE , VCORE , KNE) 

IC= (IGPE-1 )*(NPRE+NPRM) 

DO  10  1=1 , NPRE+NPRM 
10  VPREE (I )=VPREG(IC+I ) 

IMODEL=KCODE ( IGPE ) 

IFEL=KINTF(IGPE) 

IF(NSDG.GT.O)  ISDE=KSDEG(IEL) 

C EVALUATE  INTERPOLATION  FUNCTION  IF  REQUIRED 

IF(ITPE.EQ. ITPE1 ) GO  TO  30 
IC0DE=2 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE , VFE ) 

C GENERATE  ELEMENT  (TOTAL)  D.O.F.  FOR  LAGRANGIAN  FORMULATION 

C MOTE  VFE  IS  USED  TO  STORE  ELEMENT  NODAL  DISPLACEMENTS 

30  IF(ILAG.GT.O)  CALL  DLELM(KLOCE, VDLG, VDIMP, VFE) 

C FIND  ELEMENT  (INCREMENTAL)  D.O.F. 

CALL  DLELM(KLOCE,VFG, VDIMP, VDLE) 

C COMPUTE  STRESSES,  STRAINS  AND  PWPS 

IC0DE=8 

CALL  ELEMLB( VCORE, VPREE, VDLE, VKE, VFE) 

IF( IRES. EQ. 1 ) NRESsI 
50  ITPE 1 =ITPE 

IF(ILAG.EQ.I)  NRESsI 

RETURN 

END 


SUBROUTINE  ASRESD ( I RESD , IREAC ,KLD, VDIMP , KLOCE , VCORE , VPREG, VPREE , 

1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG, KNPEG , KSDEG , VDLE , VDLG , VRES, VREAC ) 

C TO  ASSEMBLE  INTERNAL  RESIDUALS  IN  VRES  (IF  IRESD  .EQ.  1) 

C AND  EXTERNAL  REACTIONS  IN  VREAC  (IF  IREAC  .EQ.  1) 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ASSE/NEQ, NSYM, NKG, NKE, NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG , ICODE , IMATD , INSE , INPE , IDLEO , INELO , IPGO , IRES 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 
COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG , INLN 
DIMENSION  KLD(*) ,VDIMP(*) ,KLOCE(») ,VCORE(») ,VPREG(») ,VPREE(») , 

1 KNE(») , VKE ( * ) , VFE ( * ) , VKGS ( * ) ,VKGD(*) ,VKGI(») ,VFG(») ,KNPEG(») , 

2 KSDEG(») ,VDLE(*) ,VDLG(») ,VRES(») ,VREAC(*) 




r, 


LOOP  OVER  THE  ELEMENTS 
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DO  60  IEL= 1 , NELT 

C READ  AN  ELEMENT  ON  FILE  ME 

CALL  RDELEMC ME , KLOCE , VCORE , KNE ) 

IF(NSDG.GT.O)  ISDE=KSDEG(IEL) 

C EVALUATE  INTERPOLATION  FUNCTION  IF  REQUIRED 

IF(ITPE.EQ.ITPEI)  GO  TO  10 
IC0DE=2 

CALL  ELEMLBC VCORE , VPREE , VDLE , VKE , VFE ) 

c GENERATE  ELEMENT  D.O.F.  FOR  LAGRANGIAN  FORMULATION 

10  IF(ILAG.GT.O)  CALL  DLELM(KLOCE, VDLG, VDIMP, VDLE) 

C EVALUATE  ELEMENT  REACTIONS 

IC0DE=9 

CALL  ELEMLB( VCORE, VPREE, VDLE, VKE, VFE) 


C PRINT  ELEMENT  REACTIONS 

IF(M.GE.2)  WRITE(MP, 2000 ) IEL , ( VFE (I ) , 1= 1 , IDLE ) 

2000  FORMAT (/'  REACTIONS  (FE)  , ELEMENT : ' , I5/( 1 0X , 10E 12. 5 ) ) 
IF(IRESD.NE.I)  GO  TO  20 

C ASSEMBLE  INTERNAL  RESIDUALS 

CALL  ASSEL ( 0 , 1 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI , VRES ) 
20  IF(IREAC.NE. 1 ) GO  TO  60 

C ASSEMBLE  EXTERNAL  REACTIONS 

MODIFY  TERMS  IN  KLOCE  SUCH  THAT  PRESCRIBED  D.O.F.  ARE  THE  ONLY 
C ASSEMBLED  ONES 

DO  50  ID= 1 , IDLE 
IF(KLOCEUD))  30,50,40 
30  KLOCE(ID)=-KLOCE(ID) 

GO  TO  50 

40  KLOCE (ID)=0 

50  CONTINUE 

CALL  ASSEL (0 , 1 , IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI , VREAC ) 
60  ITPE 1 =ITPE 

RETURN 
END 

SUBROUTINE  ASSEL (IKG, IFG, IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , 

1 VKGD, VKGI, VFG) 

C TO  ASSEMBLE  AN  ELEMENT  MATRIX  AND/OR  VECTOR 

C (MATRIX  SYMMETRICAL  OR  NOT) 

IF  IKG.EQ.1  ASSEMBLE  ELEMENT  MATRIX  KE 
IF  IFG. EQ. 1 ASSEMBLE  ELEMENT  VECTOR  FE 
ELEMENT  NUMBER  OF  D.O.F. 

0=SYMMETRIC  PROBLEM,  1 =UNSYMMETRIC  PROBLEM 
ELEMENT  LOCALIZATION  VECTOR 
CUMULATIVE  COLUMN  HEIGHTS  OF  KG 
ELEMENT  MATRIX  KE  (FULL  OR  UPPER  TRIANGLE  BY 
DESCENDING  COLUMN) 

ELEMENT  VECTOR  FE 

C VKGS, VKGD, VKI  GLOBAL  MATRIX  (SKYLINES) 

C (SYMMETRIC  OR  NOT) 

C VFG  GLOBAL  LOAD  VECTOR 

IMPLICIT  REAL*8 ( A-H ,0-Z ) 


C 

C 

C 

C 

C 

C 

C 


INPUT 

IKG 

IFG 

IDLE 

NSYM 

KLOCE 

KLD 

VKE 

VFE 

OUTPUT 
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DIMENSION  KLOCE(*) ,KLD(*) ,VKE(») ,VFE(*) ,VKGS(*) ,VKGD(») 
1 VKGI(*),VFG(») 

C ASSEMBLE  ELEMENT  MATRIX 

IF(IKG.NE. 1)  GO  TO  100 

IEQ0=IDLE 

IEQ1 =1 

c FOR  each  column  of  ke 

DO  90  JD=1 , IDLE 
IF(NSYM.NE.I)  ieqo=jd 
JL=KL0CE ( JD) 

IF(JL)  90,90,10 

10  IO=KLD( JL+1 ) 

IEQsIEQI 
IQ=  1 

c FOR  each  row  of  ke 

DO  80  ID= 1 , IDLE 
IL=KLOCE(ID) 

IF(NSYM.EQ.I)  GO  TO  30 
IF(ID-JJD)  30,20,20 


20  IQsID 

30  IF(IL)  80,80,40 
40  IJsJL-IL 

IF(IJ)  70,50,60 

C DIAGONAL  TERMS  OF  KG 

50  VKGD(IL)=VKGD(IL)+VKE(IEQ) 

GO  TO  80 

C UPPER  TRIANGLE  TERMS  OF  KG 

60  IsIO-IJ 

VKGS(I)=VKGS(I)+VKE(IEQ) 

GO  TO  80 

C LOWER  TRIANGLE  TERMS  OF  KG 

70  IF(NSYM.NE.I)  GO  TO  80 

I=KLD( IL+1 )+IJ 
VKGI (I )s VKGI (I )+VKE (IEQ) 

80  IEQ=IEQ+IQ 

90  IEQ1 =IEQ1 +IEQO 

C ASSEMBLE  ELEMENT  LOAD  VECTOR 

100  IF(IFG.NE.I)  GO  TO  130 


DO  120  ID=1 , IDLE 
ILsKLOCE (ID) 

IF(IL)  120,120,110 
110  VFG(IL)sVFG(IL)+VFE(ID) 

120  CONTINUE 
130  RETURN 
END 

SUBROUTINE  MODFG< IDLE , NSYM , KLOCE , VDIMP , VKE , VFG ) 

C TO  MODIFY  VECTOR  FG  TO  TAKE  INTO  ACCOUNT  OF  PRESCRIBED  NON  ZERO 
C D.O.F.  FOR  A GIVEN  ELEMENT 
C INPUT 

C IDLE  ELEMENT  NUMBER  OF  D.O.F. 

C NSYM  OsSYMMETRIC  PROBLEM,  1 =NON  SYMMETRIC  PROBLEM 

C KLOCE  ELEMENT  LOCALIZATION  VECTOR 
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C VDIMP  VALUES  OF  PRESCRIBED  D.O.F. 

C VKE  ELEMENT  MATRIX  (FULL  OR  UPPER  TRIANGLE 

c BY  DESCENDING  COLUMNS) 

C OUTPUT 

C VFG  GLOBAL  LOAD  VECTOR 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  KLOCE ( * ) , VDIMP ( * ) , VKE ( * ) ,VFG(») 

DATA  ZERO/O. DO/ 

IEQO=IDLE 

IEQIsl 

c FOR  EACH  ROW  OF  ELEMENT  MATRIX 

DO  50  JD=1 , IDLE 
IF(NSYM.NE. 1 ) IEQOrJD 
IEQ=IEQ1 
JL=KLOCE(JD) 

IQ=1 

IF(JL)  10,50,50 
10  JL=-JL 

DIMP=VDIMP(JL) 

IF(DIMP.EQ.ZERO)  GO  TO  50 

c for  each  column  of  element  matrix 

DO  40  ID= 1 , IDLE 
IL=KLOCE(ID) 

IF(NSYM.EQ. 1 ) GO  TO  30 
IF(ID-JD)  30,20,20 
20  IQsID 

30  IF(IL.GT.O)  VFG(IL)=VFG(IL)-VKE(IEQ)*DIMP 

40  IEQ=IEQ+IQ 

50  IEQ1 =IEQ1 +IEQO 

RETURN 
END 

SUBROUTINE  PRPVTS(VKGD) 

C TO  EVALUATE  AND  TO  PRINT  THE  PIVOTS  AND  DETERMINANT  OF  MATRIX  KG 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/ ASSE/NEQ , NSYM , NKG , NKE , NDLE 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  VKGD(*) 

DATA  UN/1.DO/,GROS/1.D38/ 

ABS(X)=DABS(X) 



XI  =GROS 
X2=GR0S 
DET=UN 
IDET=0 


C PRINT  PIVOTS  OF  MATRIX  KG 

IF(M.GE.2)  WRITE (MP, 2000  ) (VKGD(I)  ,1=1 , NEQ) 
2000  FORMAT (/’  GLOBAL  MATRIX  PIVOTS ' /( 1 X, 10E 12. 5 ) ) 
DO  50  1=1, NEQ 

C ABSOLUTE  VALUE  OF  MINIMUM  PIVOT 

X=A3S(VKGD(I ) ) 
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IF(X.GT.XI)  GO  TO  10 
X1=X 
11  = 1 

c ALGEBRAIC  VALUE  OF  MINIMUM  PIVOT 

X=VKGD(I ) 

10  IF(X.GT.X2)  GO  TO  20 

X2=X 
12=1 

c DETERMINANT  (BOUNDS  : 10  EXPONENT  + OR  - 10) 

20  DET=DET*VKGD(I ) 

30  DET1=ABS(DET) 

IF(DETI.LT.I.DIO)  GO  TO  40 
DET=DET*1 . D— 1 0 
IDET=IDET+1 0 

40  IFCDET1.GT. 1.D-10)  GO  TO  50 

DET=DET*1 .DIO 
IDET=IDET-10 
GO  TO  30 
50  CONTINUE 

C OUTPUT 

WRITE (MP, 2010)  XI ,11, X2f 12, DET, IDET 

2010  FORMAT C/15X, 'ABSOLUTE  VALUE  OF  MINIMUM  PIVOT  = f , E 12. 5 , • EQUATION 
1:',I5  /29X,  'ALGEBRAIC  VALUE=' ,E12. 5,’  EQUATION:', 

2 15  /29X,  'DETERMINANT  =', E12.5  ' * 10  **  ' 

3 15/) 

RETURN 

END 

SUBROUTINE  PRSOL (KDLNC , VCORG , VDIMP , KNEQ , VFG ) 

C TO  PRINT  THE  SOLUTION 

IMPLICIT  REAL*8 (A-H ,0-Z) 

CHARACTERS  RF,RL,FX 
COMMON/COOR/NDIM , NNT, NDLN , NDLT 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  V ( 1 0 ) ,FX(10) 

DIMENSION  VDIMP ( * ) , KDLNC ( * ) , VCORG( *) ,KNEQ(») ,VFG(») 

DATA  RF/'  * ' / , RL/ ' '/, ZERO/O. DO/ 



X2=ZER0 
X3=ZER0 
WRITE (MP, 2000) 

2000  FORMAT (/’  NODES' ,4X, 'X ', 1 IX, ' Y ', 1 IX, ' Z ', 10X, ' DEGREES  OF  FREEDOM  (* 

1 = PRESCRIBED)'/) 

12=0 

DO  50  IN= 1 , NNT 
11=12+1 
I2=I2+NDIM 
ID1 =KDLNC(IN)+1 
ID2=XDLNC(IN+1 ) 

ID=ID2-ID1+1 

IF( ID2. LT. ID1 ) GO  TO  50 

XlsVCORG(II) 

IF(NDIM.GE.2)  X2=VC0RG(I 1+1 ) 
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IF(NDIM.GE. 3)  X3=VC0RG (1 1+2 ) 
J = ID1 


DO  40  1=1, ID 
J J=KNEQ( J ) 
IF(JJ)  10,20,30 
10  V (I )=VDIMP(-JJ ) 

FX(I )=RF 
GO  TO  40 
20  V (I )=ZERO 

FX(I)=RF 
GO  TO  40 

30  V(I)sVFG(JJ) 

FX(I)=RL 
40  J=J+1 


WRITE (MP ,2010)  IN,X1 ,X2,X3, (V(II ) ,FX(II) ,11=1 , ID) 

2010  FORMAT (IX, 15, 3E 12. 5, 5X , 5 (E 12 . 5, A4 )/47X, 5 (E 12. 5 , A4 ) ) 

50  CONTINUE 

RETURN 
END 

SUBROUTINE  DLELM( KLOCE , VDLG , VDIMP , VDLE ) 

C TO  GENERATE  ELEMENT  D.O.F. 

C========================================- 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KLOCE (*) ,VDLG(*) ,VDIMP(*) ,VDLE(») 

DATA  ZERO/O. DO/ 


C~ 


DO  40  ID=1 , IDLE 
IL=KLOCE (ID) 

IF(IL)  10,20,30 
10  VDLE(ID)=VDIMP(-IL) 

GO  TO  40 

20  VDLE(ID)=ZERO 

GO  TO  40 

30  VDLE ( ID )= VDLG (IL) 

40  CONTINUE 

IF(M.GE.2)  WRITE (MP, 2000)  IEL, (VDLE (ID) ,ID=1 , IDLE) 

2000  FORMAT ( ' DEGREES  OF  FREEDOM  OF  ELEMENT  ' , I5/( 1 X, 10E 12. 5 ) ) 

RETURN 

END 

SUBROUTINE  SOL ( VKGS , VKGD , VKGI , VFG , KLD , NEQ , MP , IFAC , ISOL , NSYM , ENERG ) 


r 

\j 

c 

c 

c 

c 

c 

c 

c 

c 


TO  SOLVE  A LINEAR  SYSTEM  (SYMMETRICAL  OR  NOT). 

THE  MATRIX  IS  STORED  IN  CORE  BY  SKYLINES  IN  ARRAYS 
VKGS, VKGD, VKGI 
INPUT 

VKGS, VKGD, VKGI  SYSTEM  MATRIX  : UPPER,  DIAGONAL  AND 

LOWER  PARTS 

VFG  SECOND  MEMBER 

KLD  ADDRESSES  OF  COLUMN  TOP  TERMS 

NEQ  NUMBER  OF  EQUATIONS 
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c 

MP 

OUTPUT  DEVICE  NUMBER 

r • 
o 

IFAC 

IF  IFAC.EQ. 1 TRIANGULARIZE  THE  MATRIX 

c 

ISOL 

IF  ISOL.EQ. 1 COMPUTE  THE  SOLUTION  FROM 

c 

TRIANGULARIZED  MATRIX 

c 

NSYM 

INDEX  FOR  NONSYMMETRIC  PROBLEM 

c 

OUTPUT 

c 

VKGS, VKGD, VKGI 

TRIANGULARIZED  MATRIX  (IF  IFAC.EQ. 1) 

c 

VFG 

SOLUTION  (IF  ISOL.EQ. 1) 

c 

ENERG 

SYSTEM  ENERGY  (IF  NSYM. EQ.O) 

IMPLICIT  REAL*8 (A-H ,0-Z ) 

DIMENSION  VKGS ( * ) , VKGD ( * ) , VKGI ( * ) , VFG ( * ) ,KLD(») 
DATA  ZERO/O. DO/ 



IK=  1 

IF ( VKGD ( 1 ) .NE.ZERO)  GO  TO  10 

WRITE (MP, 2000)  IK 

STOP 


10  ENERG=ZERO 

C FOR  EACH  COLUMN  IK  EO  BE  MODIFIED 

JHK=1 

DO  100  IK=2, NEQ 

C ADDRESS  OF  THE  NEXT  COLUMN  TOP  TERM  IK+1 

JHK1 =KLD(IK+1 ) 

c HEIGHT  OF  COLUMN  IK  (INCLUDE  UPPER  AND  DIAGONAL  TERMS) 


LHK=JHK1-JHK 
LHK1 =LHK-1 

C ROW  OF  FIRST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMIN=IK-LHK1 
I MIN  1 =IMIN-1 

c ROW  OF  LAST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMAX=IK-1 

IFCLHK1 .LT.O)  GO  TO  100 
IF(IFAC.NE.I)  GO  TO  90 

IF(NSYM.EQ. 1 ) VKGI (JHK) = VKGI ( JHK)/VKGD(IMIN 1 ) 

IF(LHK1 .EQ.O)  GO  TO  40 

C MODIFY  NON-DIAGONAL  TERM  IN  COLUMN  IK 

JCK=JHK+1 

JHJ=KLD(IMIN) 

c FOR  EACH  TERM  LOCATED  AT  JCK  AND  CORRESPONDING  TO  COLUMN  IJ 

DO  30  IJ=IMIN, IMAX 
JHJ1=KLD(IJ+1 ) 

C NUMBER  OF  MODIFICATIVE  TERMS  FOR  COEFFICIENT  LOCATED  AT  JCK 

IC=MINO ( JCK-JHK, JHJ 1-JH J ) 

IFCIC.LE. 0. AND. NSYM. EQ.O)  GO  TO  20 
C1=ZER0 

IFCIC.LE. 0)  GO  TO  17 
J 1 = JH J1-IC 
J2=JCK-IC 

IFCNSYM.EQ. 1 ) GO  TO  15 

VKGS( JCK) = VKGS (JCK) -SCALC VKGS (J 1 ) , VKGS ( J2 ) , IC ) 

GO  TO  20 

15  VKGS (JCK) = VKGS (JCK) -SCAL( VKGI ( J 1 ) ,VKGS(J2) ,IC) 

Cl =SCAL(VKGS ( J 1 ) , VKGI ( J2 ) , IC ) 
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17 

20 

30 

40 


50 

60 

70 


80 

2000 

C 

90 


100 

C — 


110 

C — 

120 

130 


140 

150 


r* 

v-* 


c 


VKGI (JCK) = (VKGI (JCK )-C 1 )/VKGD(I J ) 

JCK=JCK+1 
JH J =JH J1 

MODIFY  DIAGONAL  TERM 

JCKsJHK 
CDIAG=ZERO 
DO  70  IJ  =IMIN 1 , IMAX 
C1=VKGS( JCK) 

IFCNSYM.EQ. 1 ) GO  TO  50 
C2=C1/VKGD(I J) 

VKGS(JCK)=C2 
GO  TO  60 
C2=VKGI( JCK) 

CDIAG=CDIAG+C 1 *C2 
JCK=JCK+1 

VKGD(IK)=VKGD(IK)-CDIAG 
IF(VKGD(IK) ) 90,80,90 
WRITECMP,  2000 ) IK 

FORMAT ( ' ***  ERROR, ZERO  PIVOT  EQUATION  ' 15) 
STOP 


SOLVE  LOWER  TRIANGULAR  SYSTEM 

IFCISOL.NE. 1 ) GO  TO  100 

IF( NSYM. NE. 1 ) VFG(IK)=VFG(IK)-SCAL(VKGS( JHK) , VFG(IMIN1 ) LHK) 
IFCNSYM.EQ.  1 ) VFG(IK)=VFG(IK)-SCAL(VKGI(JHK)  ,VFG(IMIN1 ) *LHK) 
JHK=JHK1 


IFCISOL.NE. 1)  RETURN 

SOLVE  DIAGONAL  SYSTEM 

IFCNSYM.EQ. 1 ) GO  TO  120 
DO  110  IK=1 , NEQ 
C1=VKGD(IK) 

C2=VFG(IK)/C1 
VFGCIK )=C2 

ENERG=ENERG+C 1 *C2*C2 

SOLVE  DIAGONAL  SYSTEM 

IK=NEQ+1 
JHK1 =KLD(IK) 

IK=IK-1 

IFCNSYM.EQ. 1)  VFGCIK )= VFGCIK )/VKGD (IK ) 

IFCIK.EQ. 1 ) RETURN 

ClrVFG(IK) 

JHKrKLD(IK) 

JBK=JHK1-1 

IF( JHK.GT. JBK)  GO  TO  150 

IJ=IK-JBK+JHK-1 

DO  140  JCK=JHK, JBK 

VFGCIJ )=VFG(IJ )-VKGS( JCK)*C1 

IJ=IJ+1 


JHK1 =JHK 
GO  TO  130 
END 

FUNCTION  SCALCX, Y, N) 


INNER  PRODUCT  OF  VECTORS  X AND  Y OF  LENGTH  N 
(FUNCTION  TO  BE  WRITTEN  EVENTUALLY  IN  ASSEMBLER) 
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C=  = 


CI- 

IO 


C' 


2000 


C~ 


0 


10 

C- 


IMPLICIT  REAL*8 ( A-H , O-Z ) 
DIMENSION  X(*),Y(») 

DATA  ZERO/O. DO/ 


SCALrZERO 

DO  10  1 = 1, N 

SCAL=SCAL+X (I )*Y(I) 

RETURN 

END 

SUBROUTINE  BLNLIN 


TO  CALL  BLOCK  'NLIN ' 

TO  SOLVE  A STEADY  NON  LINEAR  PROBLEM 


1 


1 

2 


1 


IMPLICIT  REAL*8 (A-H , O-Z ) 

CHARACTER*4  T3L 

COMMON/ COOR/NDIM , NNT , NDLN , NDLT 
COMMON/PREL/NGPE , NP  RE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM 
NPEM , NELS 

COMMON/ ASSE/NEQ, NSYM , NKG , NKE , NDLE 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG , INLN 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP.M7, MS, M9,MH 
COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE 
LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 
LRES, LDLG, LNELS, LEB, LPB 
COMMON/SEQU/NSEQ , NSEQO , ISEQ , IASS EL , IBAR 
COMMON  VAC 20000) 

DIMENSION  TBLC9) 

DATA  TBL/'KGS  ','KGD  ','KGI  ','FG  ','KE  ','FE  '.'RES  ' 'DLE  ' 

'DLG  '/ 


9 


ILAG=NLAG 
INLN=1 
NSEQ=NSEQ+1 
NSEQ0=NSEQ0+1 
WRITE (*,2000)  M 
WRITE (MP, 2000)  M 

FORMAT (/ /'  NON  LINEAR  SOLUTION  (M=  * ,12, 1 ) '/1X,23( ) ) 
IF(NSEQO.NE.I)  GO  TO  10 
IF(NMNL.EQ.O)  GO  TO  10 

— OPEN  DIRECT  ACCESS  FILE  M3  ( ELASTO-PLASTIC  MATRICES) 
LD=16*8 

OPEN(M3,FILE='M3. DAT' , STATUS='NEW' ,ACCESS= ' DIRECT ' , RECL=LD) 

— OPEN  DIRECT  ACCESS  FILE  M9  (STIFFNESS  IDENTIFIER  DATA) 
LT=NPEM*4 

OPEN(M9,FILE='M9. DAT' ,STATUS= ' NEW' ,ACCESS= 'DIRECT ' ,RECL=LT) 

— OPEN  DIRECT  ACCESS  FILE  MH  (PATH  HISTORY  DATA) 
IF(NHIS.EQ.O)  GO  TO  10 

LH=NPEM*NHIS*8 

OPEN(MH,FILE= ' MH. DAT ' ,STATUS= 'NEW' ,ACCESS= ' DIRECT ' , RECLsLH) 
IFCNSEQ.NE. 1)  GO  TO  20 

— OPEN  DIRECT  ACCESS  FILE  MS  (STRESSES,  STRAINS  AND  PWPS) 
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LS=NSEM*8 

OPEN ( MS , FILE= ' MS . DAT ' , STATUS= ' NEW , ACCESS= 'DIRECT ' , RECL=LS) 

C TO  ALLOCATE  SPACE 

IF(LKGS.EQ.I)  CALL  ESPACE (NKG, 1 , TBL( 1 ), LKGS ) 

IF(LKGD.EQ.I)  CALL  ESPACECNEQ, 1 ,TBL(2) ,LKGD) 

IF(NSYM.EQ. 1 . AND.LKGI.EQ. 1 ) CALL  ESPACE (NKG, 1 , TBL(3 ), LKGI ) 
IF(LFG.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL(4 ), LFG) 

IF(LKE.EQ.I)  CALL  ESPACE (NKE, 1 , TBL(5 ) ,LKE) 

IF(LFE.EQ.I)  CALL  ESPACE (NDLE , 1 , TBL(6 ), LFE ) 

IF(LRES.EQ.I)  CALL  ESPACE (NDLT+NEQ, 1 ,TBL(7) ,LRES) 

IF(LDLE.EQ.I)  CALL  ESPACE (NDLE, 1 tTBL(8) ,LDLE) 

IF(LDLG.EQ.I)  CALL  ESPACECNEQ, 1 ,TBL(9 ) ,LDLG) 

C TO  EXECUTE  THE  BLOCK 

20  CALL  EXNLIN(VACLLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) ,VA(LCODE) , 

1 VA(LINTF) , VA(LPREG) ,VA(LPREE) ,VA(LNE) ,VA(LKE) , VA(LFE) , 

2 VA(LKGS) ,VA(LKGD) ,VA(LKGI) ,VA(LFG) ,VA(LCORG) , VA(LDLNC) , 

3 VA(LNEQ) ,VA(LNPEG) , VA(LRES) , VA(LSDEG) ,VA(LDLE) , VA(LDLG) ) 

RETURN 

END 

SUBROUTINE  EXNLIN (KLD , VDIMP, KLOCE , VCORE , KCODE , KINTF , VPREG , VPREE , 

1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG, VCORG , KDLNC , KNEQ , KNPEG , VRES , 

2 KSDEG , VDLE , VDLG ) 

C TO  EXECUTE  BLOCK  'NLIN ' 

C TO  SLOVE  A STEADY  NON  LINEAR  PROBLEM  BY  NEWTON-RAPHSON  METHOD 
C IMETH.EQ.1  COMPUTE  K AT  EACH  ITERATION 

C IMETH.EQ.2  K IS  CONSTANT  AT  EACH  ITERATION 

C IMETH.EQ.3  RECOMPUTE  K AT  THE  BEGINNING  OF  EACH  STEP 

C IMETH.EQ. 4 K IS  LINEAR  AT  THE  FIRST  ITERATION (DEFAULT) 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM, NNT, NDLN , NDLT 
COMMON/PREL/NGPE, NPRE , NPRM, NMNL , NHIS 
COMMON/ASSE/NEQ, NSYM , NKG , NKE , NDLE 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG, NIDENT, NPG , NSEM, 

1 NPEM.NELS 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG, INLN 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL, IBAR 

DIMENSION  KLD(*) ,VDIMP(*) ,KLOCE(») ,VCORE(*) ,KCODE(») ,KINTF(») , 

1 VPREG(») , VPREE (*) ,KNE(») , VKE ( * ) , VFE ( * ) , VKGS ( * ) , VKGD ( * ) , 

2 VKGI(») ,VFG(») ,VCORG(*) ,KDLNC(») ,KNEQ(*) ,KNPEG(») ,VRES(*) , 

3 KSDEG(*) ,VDLE(*) ,VDLG( *) 

DATA  ZERO/O. DO/, UN/1 .DO/ 


C INITIALIZE  FILE  MS 

IF(NSEQ.EQ.I)  CALL  INITMS(NELT, NSEM, MS) 

IF(NSEQO.NE.I)  GO  TO  10 

C INITIALIZE  FILES  M9  AND  MH  IF  DEAL  WITH  NONLINEAR  MATERIAL 

IFCNMNL.EQ. 1 ) CALL  INITM9 (M9 , NELT, NPEM) 

IF(NHIS.GT.O)  CALL  INITMHC VPREG, VPREE , KNPEG, KCODE, MS , MH, NPRE , 

1 NPRM, NELT) 

10  DPASO=ZERO 
XPAS=ZERO 
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C 

1000 


c 


1900 

2000 


C 

C 

20 

C 

2010 

c 


c- 


30 

40 

C~ 

50 


1 

C 

60 


IPAS=0 


— READ  A CARD  DEFINING  A SET  OF  IDENTICAL  STEPS 
READ ( MR , 1000)  DPAS, II , 12, 13, XI , X2, IELS, IEQL 
FORMAT (F10 . 0, 315, 2F1 0 . 0 , 215 ) 

IF(II.GT.O)  NPASsIl 
IFCI2.GT.0)  NITER=I2 
IF(I3.GT.O)  IMETH=I3 
IF (XI .GT.ZERO)  EPSDL=X1 
IF(X2.GT.ZER0)  0MEGA=X2 

— LOOP  OVER  ALL  STEPS 
DO  130  IP=1,NPAS 
IPAS=IPAS+1 


WRITE(*,1900)  IPAS 

FORMAT ('  INCREMENT  NUMBER  = ’,15) 

XPAS=XPAS+DPAS 

WRITE(MP, 2000 ) IPAS, DPAS , XPAS, NITER, IMETH , EPSDL, OMEGA 
FORMAT (/IX, 1 3 ('-'),' STEP  NUMBER  (IPAS) :' ,15// 


14X, ’INCREMENT  (DPAS)= 
14X, 'TOTAL  LEVEL  (XPAS)= 
14X, 'NUMBER  OF  ITERATIONS  (NITER )= 
14X, 'METHOD  NUMBER  (IMETH)= 
14X, 'TOLERANCE'  (EPSDL)= 
14X, 'OVER  RELAXATION  FACTOR  ( OMEGA )= 


INCREMENT  THE  LOADS  AND  STORE  IN  THE  RESIDUAL  VECTOR 

CALL  MAJ(DPAS,ZERO, NEQ, VFG, VRES) 

UPDATE  TOTAL-LOAD  LOAD  VECTOR 

DO  20  1=1, NEQ 

VRES (NDLT+I ) = VRES (NDLT+I )+VRES ( I ) 

LOOP  OVER  EQUILIBRIUM  ITERATIONS 

DO  110  ITER=1, NITER 

IF(IMETH.GT.4)  WRITE (MP, 2010)  IMETH 

FORMAT ( ' **  ERROR, METHOD: ' ,13, ' UNKNOWN') 

IFUMETH.GT.4)  STOP 


E12.5/ 

E12.5/ 

112/ 

112/ 

E12.5/ 

E12.5/) 


— DECIDE  IF  GLOBAL  MATRIX  IS  TO  BE  ASSEMBLED 
IKT=0 


IF ( IMETH. EQ. 1 . OR . IMETH. EQ. 4 ) IXT=1 
IF ( IMETH. EQ. 2. AND. IP AS. EQ. 1 .AND. ITER. EQ. 1 ) IKT=1 
IF ( IMETH. EQ. 3. AND. ITER. EQ. 1 ) IKT=1 
IF(IKT.EQ.O)  GO  TO  60 

INITIALIZE  GLOBAL  MATRIX  TO  ZERO  IF  IT  IS  TO  BE  ASSEMBLED 
IF(NSEQ.EQ. 1. AND. IPAS. EQ.1. AND. ITER. EQ.1)  GO  TO  50 
DO  30  1=1, NKG 
VKGS(I)=ZERO 

IF(NSYM.EQ.I)  VKGI (I )=ZERO 
DO  40  1=1, NEQ 
VKGD(I )=ZERO 

— ASSEMBLE  KG 

CALL  ASKG(KLD,VDIMP,KLOCE,VCORE,KCODE,KINTF,VPREG,VPREE,KNE, 

VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE , VDLG ) 

— SOVLE 


CALL  SOL (VKGS , VKGD , VKGI , VRES , KLD , NEQ, MP , IKT , 1 , NSYM , ENERG ) 
IFUKT.  EQ.1. AND. M.GT.1)  CALL  PRPVTS(VKGD) 

— UPDATE  STRESSES,  STRAINS  AND  PWPS 

CALL  ASGRAD(KLD,VDIMP,KLOCE,VCORE,KCODE,KINTF,VPREG,VPREE,KNE, 
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1 VKE , VFE , VKGS , VKGD , VKGI , VRES , KNPEG , KSDEG , VDLE , VDLG , NRES ) 


C UPDATE  THE  SOLUTION 

CALL  MA J (OMEGA, UN, NEQ, VRES, VDLG) 
C COMPUTE  THE  NORM 


CALL  NORME (NEQ, VRES, VDLG, XNORM) 

IF(M.GT.O)  WRITE (MP, 2020 ) ITER, XNORM 
2020  F0RMAT(5X, 'ITERATION  (ITER ) : ' , 13 , ' NORM  (XNORM)  = ' , E 12 . 5 ) 

IF( M.GE. 2)  CALL  PRSOL (KDLNC , VCORG , VDIMP , KNEQ, VDLG ) 

C UPDATE  STRESSES  AND  STRAINS  AND  PWPS 

IF(NRES.EQ.O)  GO  TO  120 
IF ( XNORM. LE. EPSDL)  GO  TO  120 

C ASSEMBLE  RESIDUAL  VECTOR 

DO  70  1=1, NEQ 
70  VRES(I )=ZERO 

CALL  ASRESD(1 ,0,KLD, VDIMP, KLOCE, VCORE.VPREG, VPREE.KNE, VKE, VFE, 
1 VKGS , VKGD , VKGI , VFG, KNPEG , KSDEG , VDLE , VDLG , VRES, VRES ( NEQ+1 ) ) 

DO  80  1=1, NEQ 

80  VRES (I )=VRES(NDLT+I )-VRES(I ) 

110  CONTINUE 

ITER=NITER 

C END  OF  STEP 

120  DPASO=DPAS 

'WRITE (MP,  2030 ) ITER,  NITER 

2030  FORMAT (/I OX, 14, ' PERFORMED  ITERATIONS  OVER ', 14/) 

IF( M. LT. 2)  CALL  PRSOL (KDLNC , VCORG, VDIMP, KNEQ, VDLG ) 

IF(IELS.EQ. 1 ) CALL  ELSOL (KLD, VDIMP, KLOCE, VCORE, VPREE.KNE, VKE, 

1 VFE , VKGS , VKGD , VKGI , VDLE , VDLG , VRES, IPAS , NLAG , IEQL ) 

130  CONTINUE 


C FOR  THE  PROBLEM  WITHOUT  CONSTRUCTION  SEQUENCES 

C EVALUATE  AND  PRINT  EQUILIBRIUM  RESIDUAL  VECTOR 

IF(ISEQ.NE.O)  RETURN 

C SAVE  VECTOR  VFG  IN  VRES  AND  CHANGE  SIGN 

DO  140  1=1, NEQ 
140  VRES(I )=-VRES(NDLT+I ) 

C ASSEMBLE  THE  RESIDUALS 

CALL  ASRESDO , 1,KLD, VDIMP, KLOCE, VCORE.VPREG, VPREE.KNE, VKE, VFE, 
1 VKGS, VKGD, VKGI, VFG, KNPEG, KSDEG, VDLE, VDLG, VRES, VRES(MEQ+1)) 

C PRINT  THE  RESIDUALS 

WRITE (MP, 2040) 


2040  FORMAT (/ / ' EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRSOL(KDLNC, VCORG, VRES (NEQ+1 ) , KNEQ, VRES) 

RETURN 

END 

SUBROUTINE  INITMS(NELT, NSEM.MS) 

INITIALIZE  FILE  MS  (DATA  FOR  STRESSES,  STRAINS  AND  PWPS) 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

DIMENSION  VSE (8 1 ) 

DO  10  1=1 , NSEM 
VSE (I )=0 . DO 
DO  20  IEL=1 , NELT 

WRITE(MS, REC=IEL)  ( VSE (I ), 1=1 , NSEM) 

RETURN 
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END 

SUBROUTINE  INITM9 (M9 , NELT , NPEM) 

C INITIALIZE  FILE  M9  (STIFFNESS  IDENTIFIER  DATA) 

DIMENSION  MT(9 ) 

DO  10  1=1, NPEM 
10  MT ( I ) = 1 

DO  20  IEL=1 , NELT 

20  WRITE ( M9 , REC=I EL ) (MT(I ) ,1=1 , NPEM) 

RETURN 

END 

SUBROUTINE  INITMH(VPREG,VPREE,KNPEG,KCODE,MS,MH,NPRE, NPRM.NELT) 


C INITIALIZE  FILE  MH  (PATH  HISTORY  DATA) 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

DIMENSION  VPREG(*) ,VPREE(*) ,KNPEG(») ,KCODE(») 

DO  20  IEL=1 , NELT 
IGPE=KNPEG(IEL) 

IMODEL=KCODE(IGPE) 

IF(IM0DEL.NE.4)  GO  TO  20 
IC= (IGPE-1 )*(NPRE+NPRM) 

DO  10  1=1 , NPRE+NPRM 
10  VPREE(I )=VPREG(IC+I ) 

IF(IM0DEL.EQ.4)  CALL  CAPI (VPREE , NPRE , IEL,MS,MH) 
20  CONTINUE 

RETURN 
END 

SUBROUTINE  MAJ(X1 ,X2, N, VI , V2) 

C EXECUTE  THE  VECTOR  OPERATION:  V2=X1*V1  + X2*V2 

C XI ,X2: SCALARS  VI , V2: VECTORS 

IMPLICIT  REAL*8 (A-H , 0-Z) 

DIMENSION  VI (*) ,V2(*) 



DO  10  1=1, N 

10  V2(I)=X1*V1(I )+X2*V2(I ) 

RETURN 

END 

SUBROUTINE  NORME ( N , VDEL , V , XNORM) 

C COMPUTE  THE  LENGTHS  RATIO  OF  VECTORS  VDEL  AND  V 

IMPLICIT  REAL*8 (A-H, 0-Z) 

DIMENSION  VDEL(*),V(») 

DATA  ZERO/O. DO/, UN/1 .DO/, FAC/1 .D-3/ 

SQRT (X )=DSQRT (X ) 

Cl =ZERO 

C2=ZER0 

DO  10  1=1, N 

Cl =C 1+VDEL (I )*VDEL (I ) 
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10  C2=C2+V (I ) *V (I ) 

C=C 1 *FAC 

IF(C2.LE.C)  C2=UN 
XN0RM=SQRT(C1/C2) 

RETURN 

END 

SUBROUTINE  ELSOL (KLD , VDIMP , KLOCE , VCORE , VPREE , KNE , VKE , VFE , VKGS , 

1 VKGD, VKGI , VDLE, VDLG, VRES, IPAS, NLAG, IEQL) 

C TO  PRINT  SOLUTIONS  FOR  SPECIFIED  ELEMENTS  FOR  EACh'iNCREMENt”" 
C IN  A NONLINEAR  ANALYSIS  AND  TO  FIND  EQUIVALENT  NODAL  FORCES 

C DUE  TO  THE  STRESSES  AT  GAUSS  POINTS  IF  IEQL  .EQ.  1 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/ASSE/NEQ, NSYM, NKG, NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG, ICODE, IMATD , INSE , INPE , IDLEO , INELO, IPGO, IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KLD(*) ,VDIMP(*) ,KLOCE(») ,VCORE(») ,VPREE(*) ,KNE(») , 

1 VKE(») ,VFE(») ,VKGS(») ,VKGD(») , VKGI (*), VDLE (*) ,VDLG( *) ,VRES( *) 


DIMENSION  NS0L(50) 



IF (IPAS. NE. 1 ) GO  TO  20 

C READ  NUMBER  OF  ELEMENTS 

READ(MR, 1000)  NELS 
1000  FORMAT (15 ) 

C READ  ELEMENT  NUMBER  CARD 

N=  1 
11  = 1 

10  I2=MIN0(N#16,NELS) 

READ(MR, 1500)  (NSOL(I ) , 1=1 1 , 12) 
1500  FORMAT ( 1615) 


IF(NELS.EQ.I2)  GO  TO  20 
N=N+1 
11=11+16 
GO  TO  10 

C INITIALIZE  VRES 

20  DO  30  1=1, NEQ 
30  VRES(I )=0. DO 

C LOOP  OVER  THE  SPECIFIED  ELEMENTS 

DO  50  IE= 1 , NELS 
IEL=NSOL(IE) 

C READ  THE  ELEMENT 

CALL  RDELEMC ME, KLOCE, VCORE, KNE) 

C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF(ITPE.EQ. ITPE1 ) GO  TO  40 
IC0DE=2 

CALL  ELEMLB( VCORE, VPREE, VDLE, VKE, VFE) 

C PRINT  STRESSES  AND  STRAINS 

40  ICODE= 1 0 

CALL  ELEMLBC VCORE, VPREE, VDLE, VKE, VFE) 

IF(IEQL.EQ.O)  GO  TO  50 

C EVALUATE  EQUIVALENT  NODAL  FORCES  DUE  TO  STRESSES  AT  G.P. 

IF(NLAG.GT.O)  CALL  DLELM(KLOCE, VDLG, VDIMP, VDLE) 
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IC0DE=9 

CALL  ELEMLB( VCORE, VPREE, VDLE,  VKE , VFE) 
C ASSEMBLE 


50 

C 

2000 


CALL  ASSEL (0,1, IDLE , NSYM , KLOCE , KLD , VKE , VFE , VKGS , VKGD , VKGI , VRES ) 
ITPE 1 =ITPE 

— PRINT  EQUIVALENT  NODAL  FORCES 
IF(IEQL.EQ. 1 ) WRITE (MP, 2000 ) (VRES(I) ,1=1 , NEQ) 

FORMAT (/’  GLOBAL  LOAD  VECTOR  FOR  SPECIFIED  ELEMENTS ' /(5X . 6E 12  5)) 

RETURN 

END 

SUBROUTINE  BLPRNT 


TO  CALL  BLOCK  ' PRNT ' 

TO  PRINT  SOLUTIONS  FOR  SPECIFIED  ELEMENTS 


IMPLICIT  REAL*8 ( A-H , 0-Z ) 

CHARACTER*4  TBL 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP , LCODE , LINTF , LPREG , LLD , LLOCE 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 . LRES,LDLG,LNELS,LEB,LPB 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 
COMMON  VA( 20000) 

DATA  TBL/'NELS’/ 




c READ  NUMBER  OF  ELEMENTS 

READ(MR, 1000)  NELS 
1000  FORMAT (15) 

WRITE (MP, 2000)  M, NELS 

2000  FORMAT (//’  OUTPUT  OF  SOLUTIONS  FOR  SPECIFIED  ELEMENTS  (M=’,I2, 

1 ')'/'  ' ,50( ' = » )/15X, 'NUMBER  OF  SPECIFIED  ELEMENTS  (NP)='!l5) 

CALL  ESPACE (NELS, 0, TBL, LNELS) 

CALL  EXPRNT(VA(LLOCE) ,VA(LCORE) , VA(LPREE) , VA(LNE) , VA(LDLE) 

1 VA(LKE) ,VA(LFE) , VA(LSDEG) , VA( LNELS ) ) 

CALL  DSPACE (LNELS, 0 , TBL) 

RETURN 

END 

SUBROUTINE  EXPRNT (KLOCE , VCORE , VPREE , KNE , VDLE , VKE , VFE , KSDEG , KNELS ) 

C TO  EXECUTE  BLOCK  'PRNT’ 

C TO  PRINT  SOLUTIONS  FOR  SPECIFIED  ELEMENTS 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 

1 IPG, ICODE , IMATD , INSE , INPE , IDLEO , INELO , IPGO , IRES 
COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KLOCE ( * ) ,VCORE(») ,VPREE(») ,KNE(») ,VDLE( *) ,VKE(*) , 

1 VFE(*),KSDEG(*),KNELS(») 



C READ  AN  ELEMENT  PRINTOUT  CARD 

KK=0 
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10  READ ( MR , 1 000 ) IEL , IGEN , INCR 
1000  FORMAT (315) 

IF(IEL.LE.O)  GO  TO  30 
DO  20  1=1, IGEN 
KK=KK+1 
KNELS(KK)=IEL 


20  IEL=IEL+INCR 

GO  TO  10 

C LOOP  OVER  THE  SPECIFIED  ELEMENTS 

30  DO  50  IE=1 , NELS 
IELzKNELS(IE) 

C READ  THE  ELEMENT 

CALL  RDELEM ( ME , KLOCE , VCORE , KNE ) 

ISDE=KSDEG(IEL) 

C EVALUATE  INTEPOLATION  FUNCTION  IF  REQUIRED 

IF ( ITPE. EQ. ITPE 1 ) GO  TO  40 
IC0DE=2 

CALL  ELEMLB (VCORE , VPREE , VDLE , VKE , VFE ) 

C PRINT  STRESSES,  STRAINS,  PWPS  AND  PRINCIPAL  STRESSES 

40  IC0DE=10 

CALL  ELEMLB( VCORE , VPREE , VDLE , VKE , VFE ) 

50  ITPE 1 =ITPE 

RETURN 
END 

SUBROUTINE  BLPLOT 
C TO  CALL  BLOCK  ’PLOT' 

C TO  CREATE  DATA  FILE  Ml  TO  BE  USED  BY  FENC0N3.EXE  (BASIC) 


IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/LOCA/LCORG , LDLNC, LNEQ , LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES , LDLG, LNELS, LEB, LPB 
COMMON  VA(20000 ) 

CALL  EXPLOT (VA(LCORG) ,VA(LCORE) , VA(LDLG) ,VA(LDLE) ,VA(LDIMP)  , 

1 VA( LNPEG) ,VA( LLOCE) ,VA(LNE) ) 

RETURN 

END 

SUBROUTINE  EXPLOT ( VCORG , VCORE , VDLG , VDLE , VDIMP , KNPEG , KLOCE , KNE ) 


C TO  EXECUTE  BLOCK  ’PLOT’ 

C TO  CREATE  DATA  FILE  Ml 

IMPLICIT  REAL*8 (A-H, 0-Z) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NP EM, NELS 

COMMON/RGDT/IEL, IKEL , ITPE, ITPE 1 , ISDE, IMODEL , IFEL, IDLE, ICE, INEL, 
1 IPG , ICODE , IMATD , INSE , INPE , IDLEO , INELO, IPGO , IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL , IBAR 

DIMENSION  VCORG( *) ,VCORE(») ,VDLG(*) ,VDLE(») ,VDIMP(») ,KNPEG(») , 

1 KLOCE(*),KNE(») 
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c FIND  MAXIMUM  AND  MINMUM  X'S  AND  Y'S 

XMIN=0. DO 
YMIN=O.DO 
XMAX=0. DO 
YMAX=0. DO 
DO  10  1=1, NNT 
X=VC0RG(I*2-1 ) 

IF(XMIN.GT.X)  XMIN=X 
IF(XMAX.LT.X)  XMAX=X 
Y=VC0RG(I#2) 

IF(YMIN.GT.Y)  YMIN=Y 
10  IF(YMAX.LT.Y)  YMAX=Y 
WRITE (Ml, 2000)  NELT 
2000  F0RMAT(I5) 

WRITE (Ml, 20 10)  XMIN , YMIN , XMAX, YMAX 
2010  F0RMAT(4F10. 2) 

WRITE (Ml , 2000 ) ISEQ 

C LOOP  OVER  ELEMENTS 

DO  20  IEL=1 , NELT 

WRITE (Ml, 2000)  KNPEG(IEL) 

CALL  RDELEM( ME , KLOCE , VCORE , KNE ) 

WRITE (Ml, 2000)  INEL 

C INPUT  COORDINATES 

WRITE (Ml, 2020)  ( VCORE (I ) , 1= 1 , INEL*2 ) 

2020  FORMAT (8F 10 . 2) 

C INPUT  ELEMENT  D.O.F. 

CALL  DLELM( KLOCE , VDLG , VDIMP , VDLE ) 

WRITE (Ml, 2020)  (VDLE(I) ,1=1 ,INEL*2) 

20  CONTINUE 
RETURN 
END 
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SUBROUTINE  BLLIND 
C TO  CALL  BLOCK  'LIND' 

C TO  ASSEMBLE  AND  TO  SOLVE  A LINEAR  PROBLEM  WHEN  MATRIX  KG  IS 
C STORED  BLOCKWISE  ON  DISK 

IMPLICIT  REAL*8 ( A-H , O-Z ) 

CHARACTER*4  TBL 

COMMON/COOR/NDIM t NNT, NDLN , NDLT 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON / ASSE/N EQ, NSYM, NKG, NKE, NDLE 
COMMON/NUMB/M, M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/ALLO/NVA, IVA, IVAMAX, NREEL , NTBL 

COMMON/LOCA/LCORG , LDLNC , LNEQ, LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG , LNELS, LEB, LPB 
COMMON/SEQU/NSEQ , NSEQO , ISEQ, IASSEL , IBAR 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG , INLN 
COMMON/DISK/NLBL, NBLM 
COMMON  VAC 20000) 

DIMENSION  T3LC11) 

DATA  TBL/ 'KGS  ','KGD  ','KGI  ','FG  ','KE  ','FE  ' , ' RES  ','DLE 

1 'DLG  ','EB  ' ,'PB  '/, DEUX/2. DO/, NBLMAX/100/ 

ILAG=0 
INLN=0 
NSEQ=NSEQ+1 
WRITE (MP, 2000)  M 

2000  FORMATC//'  ON  DISK  ASSEMBLAGE  AND  LINEAR  SOLUTION  (M= ’ , 12, ’ ) ' / 

1 ’ ' , 42 ( ' = ' ) ) 

IFCNSEQ.GT. 1)  GO  TO  40 

C OPEN  DIRECT  ACCESS  FILE  MS  (STRESSES,  STRAINS  & PWPS) 

LS=NSEM*8 

OPEN (MS,FILE= ' MS . DAT ' , STATUS= ' NEW' ,ACCESS= ' DIRECT ', RECL=LS) 

C OPEN  SEQUENTIAL  FILES,  M4  AND  M7  (STORE  MATRIX  KG) 

OPEN ( M4 , FILE= ' M4 . DAT ' , STATUS= ' NEW' , FORM= ' UNFORMATTED ' ) 

OPEN ( M7 , FILE= ' M7 . DAT ' , STATUS= ' NEW ' , FORM= ' UNFORMATTED ' ) 

C TO  ALLOCATE  SPACE 

IFCLKGD.EQ. 1)  CALL  ESPACE (NEQ, 1 , TBL(2 ) , LKGD) 

IF(LFG.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL(4 ), LFG) 

IF(LKE.EQ.I)  CALL  ESPACECNKE, 1 ,TBL(5) ,LKE) 

IF(LFE.EQ.I)  CALL  ESPACE (NDLE, 1 ,TBL(6 ) ,LFE) 

IFCLRES. EQ. 1 ) CALL  ESPACE (NDLT+NEQ, 1 ,TBL(7 ) ,LRES) 

IFCLDLE.EQ. 1)  CALL  ESPACE (NDLE, 1 , TBL(8 ), LDLE) 

IF(LDLG.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL(9 ), LDLG) 

C FIND  BLOCK  LENGTH 

NL3L=0 

NBLM=0 

13=2 

I2=1+NSYM 

IF(NLBL.EQ.O)  GO  TO  10 
IF(NBLM.EQ.O)  NBLM=NKG/NLSL+2 
GO  TO  30 
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10  1 1 =MVA-IVA-(2*NBLMAX+2 )/NREEL-1 

IF(I1.GE.(NKG*I2+2))  GO  TO  20 

c CASE  WHERE  MATRIX  IS  TO  BE  SEGMENTED 

NL3L=I 1/ (DEUX *12) 

NBLM=NKG/NLBL+2 
GO  TO  30 

C CASE  WHERE  MATRIX  IS  IN  CORE 

20  MLBLsNKG 

NBLM=1 
13=1 

30  WRITE (MP, 2010)  NLBL, NBLM 


2010  FORMAT ( 

1 15X,  ' BLOCKS  LENGTH  IN  KG  (NLBL)= 

2 15X,'MAX.  NUMBER  OF  BLOCKS  IN  KG  = 

CALL  ESPACE (NBLM+ 1 , 0 , TBL ( 1 0 ) , LEB) 

CALL  ESP ACE ( NBLM ,0, TBL ( 1 1 ) ,LPB) 

IF(LKGS.EQ.I)  CALL  ESPACE (NLBL*I 3, 1 , TBL( 1 ) , LKGS ) 

IF (NSYM.EQ. 1 . AND . LKGI . EQ. 1 ) CALL  ESPACE (NLBL*I 3 , 1 , TBL ( 3 ) , LKGI ) 

40  CALL  EXLIND(VA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) ,VA(LCODE) , 

1 VA(LINTF) , VA(LPREG) ,VA(LPREE) fVA(LNE) ,VA(LKE) ,VA(LFE) ,VA(LKGS) , 

2 VA(LKGD) ,VA(LKGI) ,VA(LFG) ,VA(LCORG) , VA(LDLNC) ,VA(LNEQ) , 

3 VA(LNPEG) , VA(LRES) , VA(LSDEG) f VA(LDLE) , VA(LDLG) , VA(LEB) ,VA(LPB) ) 
RETURN 

END 

SUBROUTINE  EXLIND(KLD , VDIMP, KLOCE , VCORE , KCODE, KINTF, VPREG , VPREE , 

1 KNE, VKE, VFE , VKGS , VKGD , VKGI , VFG, VCORG , KDLNC , KNEQ , KNPEG , VRES , 

2 KSDEG , VDLE , VDLG , KEB, KPB) 

C TO  EXECUTE  BLOCK  'LIND' 

C ASSEMBLE  AND  SOLVE  A LINEAR  PROBLEM  WHEN  MATRIX  KG  IS  STORED 

C BLOCKWISE  ON  DISK 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/COND/NCLT , NCLZ , NCLNZ 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM, NELS 

COMMON/ASSE/NEQ, NSYM, NKG, NKE , NDLE 
COMMON/NUMB/M, Ml, ME, M3, M4, MR, MP,M7, MS, M9,MH 
COMMON/SEQU/NSEQ , NSEQO , ISEQ, IASSEL , IBAR 
COMMON/DISK/NLBL, NBLM 

DIMENSION  KLD( * ) ,VDIMP(») , KLOCE ( * ) , VCORE ( * ) , KCODE ( *) ,KINTF(») , 

1 VPREG(») ,VPREE(») ,KNE(*) ,VKE(*) ,VFE(») , VKGS ( * ) , VKGD ( * ) , VKGI ( * ) , 

2 VFG( *) , VCORG( *) , KDLNC ( * ) ,KNEQ(*) ,KNPEG(») ,VRES(») ,KSDEG(») , 

3 VDLE ( * ) , VDLG ( * ) ,KEB( *) ,KPB( * ) 


DATA  ZERO/O. DO/ 

C INITIALIZE  FILE  MS 

IFCNSEQ.EQ. 1 ) CALL  INITMS(NELT, NSEM, MS) 

c SAVE  UNMODIFIED  VECTOR  VFG  (BY  B.C.)  IN  VECTOR  VRES 

DO  10  1=1, NEQ 

10  VRES(NDLT+I)=VRES(NDLT+I)+VFG(I) 

IF(M.GE.2)  WRITE (MP, 2000 ) (VFG(I) ,1=1 , NEQ) 


2000  FORMAT (/ ' GLOBAL  LOAD  VECTOR  NON  MODIFIED  BY  B.C.  (FG)' 


M5/ 
' ,15) 
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1 /( IX, 10E12.5)) 

c DETERMINE  IF  THE  GLOBAL  MATRIX  IS  TO  BE  ASSEMBLED 

IKT=0 

IF(NCLNZ.NE.O)  IXT=1 
IF ( IASSEL . EQ. 1 ) IXT=1 
IF(IKT.EQ.O)  GO  TO  50 

c DETERMINE  IF  THE  GLOBAL  MATRIX  IS  TO  BE  INITIALIZED 

IF(NSEQ.EQ. 1 ) GO  TO  30 
DO  20  1=1, NEQ 
20  VKGD(I )=ZERO 

C FORM  TABLES  EB  AND  PB  DEFINING  EQUATION  BLOCKS 

30  CALL  EQBLOC(KLD,NLBL,NBLM,NEQ,KEB,KPB) 

WRITE (MP, 2010)  NBLM 

2010  F0RMAT(15X, 'NUMBER  OF  BLOCKS  IN  KG  (NBLM)=',I5) 

IF( M. LT. 2)  GO  TO  40 

WRITE (MP, 2020 ) (KEB( I ) , 1=1 , NBLM+1 ) 

2020  FORMAT (/'  FIRST  EQUATION  IN  EACH  BLOCK  (EB) ' /(5X, 2015) ) 

WRITE (MP, 2030)  (XPB(I), 1=1 , NBLM) 

2030  FORMAT (/ ' FIRST  BLOCK  CONNECTED  TO  EACH  BLOCK:  (PB) ' /(5X, 2015 ) ) 

C ASSEMBLE  KG,  MODIFY  FG  FOR  THE  B.C. 

40  CALL  ASKGD(KLD,VDIMP,KLOCE,VCORE,KCODE,KINTF,VPREG,VPREE,KNE, 

1 VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE , VDLG , KEB) 
IF(ISEQ.NE.O)  GO  TO  50 
C PRINT  FG 

IF( M.GE. 2)  WRITE(MP,2040)  (VFG(I) ,1=1 ,NEQ) 

2040  FORMAT (/ ' GLOBAL  LOAD  VECTOR  MODIFIED  BY  THE  B.C.  (FG)' 

1 /(IX, 10E12.5) ) 

C SOLVE 

50  CALL  SOLD (VKGS , VKGD , VKGI , VFG , KLD , NEQO , MP , IKT , 1 , NSYM , ENERG , KEB , 

1 KPB,M4,M7, NLBL, NBLM) 

IF(ISEQ.NE.O)  GO  TO  60 
IF(NSYM.NE.I)  'WRITE (MP,  2050)  ENERG 
2050  FORMAT (15X, 'ENERGY  (ENERG)= ' , 1E12.5) 

IF( M. LT. 2)  GO  TO  60 

C PIVOTS  OF  KG  AND  DETERMINANT 

CALL  PRPVTS(VKGD) 

C UPDATE  THE  SOLUTION 

60  DO  70  1=1, NEQ 

70  VDLG(I)=VDLG(I)+VFG(I ) 

C PRINT  THE  SOLUTION 

WRITE (MP, 2060) 

2060  FORMAT (//'  SOLUTION'//) 

CALL  PRSOL (KDLNC , VCORG , VDIMP, KNEQ, VDLG ) 

C EVALUATE,  UPDATE  AND  PRINT  STRESSES  AND  STRAINS 

CALL  ASGR AD (KLD, VDIMP , KLOCE, VCORE , KCODE, KINTF , VPREG, VPREE , KNE , 

1 VKE, VFE, VKGS, VKGD, VKGI, VFG, KNPEG, KSDEG, VDLE, VDLG, NRES) 
IF(ISEQ.NE. 1 ) GO  TO  90 
DO  80  1=1, NEQ 
80  VDLG(I )=ZERO 

C FOR  THE  PROBLEM  WITHOUT  CONSTRUCTION  SEQUENCES 

C EVALUATE  AND  PRINT  EQUILIBLIUM  RESIDUAL  VECTOR 

C ASSEMBLE  THE  RESIDUALS 

90  IF ( ISEQ.NE. 0 ) RETURN 

DO  100  1=1, NEQ 
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100  VRES( I )=-VRES(NDLT+I ) 

CALL  ASRESDO , 1 ,KLD, VDIMP , KLOCE , VCORE , VP REG , VP REE , KNE , VKE , VFE , 
1 VKGS  f VKGD , VKGI , VFG, KNPEG , KSDEG , VDLE , VDLG , VRES , VRES (NEQ+1 ) ) 

C PRINT  THE  RESIDUALS 

V/RITE(MP,  2070 ) 

2070  FORMAT (/ / ' EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRS0L(XDLNC,VC0RG,VRES(NEQ+1 ) ,KNEQ,VRES) 

RETURN 

END 

SUBROUTINE  EQBLOC(KLD, NLBL, NBLMAX, NEQ, KEB, KPB) 

C TO  FORM  TABLES  KEB  AND  KPB  DEFINING  EQUATION  BLOCKS 
C INPUT 

C KLD 

C NLBL 

C NBLMAX 

C NEQ 

C OUTPUT 

C KEB 

C 

C KPB 

C 

C NBLMAX 

COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  KLD( *) ,KEB( * ) ,KPB( * ) 



c FIRST  BLOCK 

IL6L=0 
NBL=1 
KEB( 1 )= 1 
KPBC 1 )= 1 
IMIMsI 


C FOR  EACH  EQUATION 

DO  70  IK  = 1 , NEQ 

C ADDRESSES  FOR  COLUMN  IK 


JHK=KLD(IK) 

JHK1 =KLD(IK+1 ) 

L3K1 =JHK1 -JHK 

IF ( LBK1 . LE. NLBL)  GO  TO  10 

WRITE (MP, 2000)  IK, LBK1 , NLBL 

2000  FORMAT ( ' ***  ERROR , COLUMN 15 , ' GREATERC ' ,15, ' )THAN  BLOCK( ' ,15,' 

DM 

STOP 


C CHECK  FOR  NEW  BLOCK 

10  ILBL=ILBL+LBK1 


IF( ILBL. LE. NLBL)  GO  TO  60 
NBL=NBL+1 

IFCNBL.LE. NBLMAX)  GO  TO  20 
WRITE (MP, 20 10)  IK 

2010  FORMAT ( ' ***  ERROR,  EXCESSIVE  NUMBER  OF  BLOCKS,  EQUATION ', 15 ) 
STOP 

20  KEB(NBL)=IK 
ILBL=LBK1 


ARRAY  OF  A ADDRESS  OF  COLUMN  TOP  TERMS  IN  KG 
BLOCKS  LENGTH 

MAX.  NUMBER  OF  BLOCKS  ALLOWED 
NUMBER  OF  EQUATIONS 

ARRAY  CONTAINING  THE  NUMBERS  OF  FIRST  EQUATIONS  IN 
EACH  BLOCK  (DIMENSION  NEQ+1) 

ARRAY  CONTAINING  THE  NUMBER  OF  FIRST  BLOCKS  CONNECTED 
TO  EACH  BLOCK  (DIMENSION  NEQ) 

NUMBER  OF  BLOCKS 
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C SEARCH  FOR  FIRST  SLOCK  CONNECTED  TO  COMPLETED  BLOCK 

IBsMBL 

40  IF( IMIN.GE. KEB(IB) ) GO  TO  50 

13=13-1 
GO  TO  40 

50  KPB( NBL-1 )=IB 

IMINsIK 

c SEARCH  FOR  MINIMUM  ROW  NUMBER  FOR  COLUMN  TOP  TERMS 

60  I=IK-LBK1 +1 

IF(I.LT.IMIN)  IMIN=I 
70  CONTINUE 

C FIRST  BLOCK  CONNECTED  TO  LAST  BLOCK 

IS=NBL 

80  IF ( IMIN.GE. KEB( IB) ) GO  TO  90 

IB=I3-1 
GO  TO  80 

90  KPB(NBL)=I3 

KEB(NBL+1 )=NEQ+1 

NBLMAX=NBL 

RETURN 

END 

SUBROUTINE  ASKGD(KLD, VDIMP , KLOCE , VCORE, KCODE, KINTF , VP REG , VP REE, 
1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE , VDLG , KEB) 

TO  ASSEMBLE  GLOBAL  MATRIX  KG  (ELEMENT  FUNCTION  TYPE  3) 

C TAKING  INTO  ACCOUNT  OF  PRESCRIBED  NON  ZERO  D.O.F. 

C VERSION  : MATRIX  KG  STORED  BLOCKWISE  ON  FILE  M4 

C===============================--_--_-__. 

IMPLICIT  REAL*8 (A-H , O-Z ) 

COMMON/COND/NCLT , NCLZ , NCLNZ 
COMMON/P REL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG, NIDENT, NPG  NSEM 
1 NPEM, NELS 

COMMON/ASSE/NEQ, NSYM, NKG, NKE, NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG.ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASSEL , IBAR 
COMMON/NLIN/EPSDL, OMEGA, DP AS, NP AS, NITER, ITER, IMETH, ILAG, INLN 
COMMON/DISK/NLBL, NBLM 

DIMENSION  KLD(*) ,VDIMP(*) , KLOCE (*) ,VCORE(*) ,KCODE(») ,VPREG(») , 

1 VPREE(») ,KNE(*) ,VKE(») ,VFE(») , VKGS (*) ,VKGD(* ) , VKGI (* ) ,VFG(») , 
1 KNPEG( * ) , KSDEG ( * ) , VDLE ( * ) , VDLG ( * ) ,KEB(  *) 

DATA  ZERO/O . DO/ 




C REWIND  FILE  M4 

REWIND  M4 

C LOOP  OVER  THE  BLOCKS 

DO  80  IBs 1, NBLM 

C INITIALIZE  THE  BLOCK 

DO  10  1=1 , NLBL 
IF(NSYM.EQ.I)  VKGI (I )=ZERO 
10  VKGS (I )=ZERO 
IE  1 =KEB( IB) 
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IE2=KEB(IB+1 )-1 

C LOOP  OVER  THE  ELEMENTS 

DO  70  IEL=1,NELT 
IGPE=KNPEG(IEL) 

C READ  AN  ELEMENT  ON  FILE  ME 

CALL  RDELEM( ME , KLOCE , VCORE , KNE) 

IC=(IGPE-1 )*(NPRE+NPRM) 

DO  15  1=1 , NPRE+NPRM 

15  VP REE (I )=VPREG(IC+I ) 

C GENERATE  ELEMENT  D.O.F.  FOR  LAGRAGIAN  FORMULATION 

IF(ILAG.GT.O)  CALL  DLELM( KLOCE , VDLG , VDIMP , VDLE ) 


IMODEL=KCODE(IGPE) 

IFEL=KINTF ( IGPE ) 

IF(NSDG.GT.O)  ISDE=KSDEG(IEL) 

c CKECK  IF  BLOCK  IS  AFFECTED  BY  THIS  ELEMENT 

DO  20  I D = 1 , IDLE 
J=KLOCE(ID) 

IFCJ.LT.IE1.0R.J.GT.IE2)  GO  TO  20 
GO  TO  40 
20  CONTINUE 

30  IF( IB. NE. 1 . OR. (NCLNZ .EQ.O. AND. IB.EQ. 1 ) ) GO  TO  70 

c EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

40  IF(ITPE.EQ.ITPEI)  GO  TO  50 

IC0DE=2 

CALL  ELEMLBC VCORE, VPREE, VDLE, VKE, VFE) 

C FORM  ELEMENT  MATRIX 

50  IC0DE=3 

CALL  ELEMLB( VCORE , VPREE , VDLE , VKE , VFE ) 

C PRINT  ELEMENT  MATRIX 

IFCM.LT. 2)  GO  TO  60 
IF ( NSYM . EQ.O ) IKE=IDLE*(IDLE+1 )/2 
IFCNSYM.EQ. 1)  IXE=IDLE*IDLE 
WRITE (MP, 2000 ) IEL , ( VKE (I ) , 1= 1 , IKE ) 

2000  FORMAT (/ ’ MATRIX  (KE)  , ELEMENT : ' , I5/C 1 0X, 10E 12. 5 ) ) 


C MODIFY  FG  FOR  THE  PRESCRIBED  NON  ZERO  D.O.F. 

60  IF ( NCLNZ. NE.O. AND. IB.EQ. 1 ) CALL  MODFGCIDLE , NSYM, KLOCE , VDIMP, VKE , 

1 VFG) 

C ASSEMBLE 

CALL  ASSELD ( 1 , 0 , IDLE , NSYM , IE  1 , IE2 , KLOCE , KLD , VKE , VFE , VKGS , VKGD , 

1 VKGI , VFG) 

ITPE 1 =ITPE 
70  CONTINUE 
C END  OF  A BLOCK 


WRITE (M4)  (VKGS (I ) , 1=1 , NLBL) 

IFCNSYM.EQ. 1)  WRITE (M4)  (VKGI (I ), 1=1 , NLBL) 

IFCM.LT. 2)  GO  TO  80 

WRITE (MP, 20 10)  13, ( VKGS (I) ,1=1 , NLBL) 

2010  FORMAT ( ' UPPER  TRIANGLE  BLOCK  OF  (KG)  NO: ' , I5/C IX, 10E  12.5) ) 
IFCNSYM.EQ. 1 ) WRITECMP, 2020)  13 , ( VKGI (I ) , 1= 1 , NLBL) 

2020  FORMAT ( ' LOWER  TRIANGLE  BLOCK  OF  (KG)  NO: » , I5/C IX, 10E12.5) ) 
30  CONTINUE 

IFCM.GE.2)  WRITECMP, 2030 ) (VKGDCI ) ,1=1 , NEQ) 

2030  FORMAT ( ' DIAGONAL  OF  (KG) ' /( IX, 10E12.5)) 

RETURN 
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END 

SUBROUTINE  ASSELD (IKG, IFG , IDLE , NSYM , IE  1 , IE2 , KLOCE , KLD , VKE , VFE , 
1 VKGS , VKGD , VKGI , VFG) 

TO  ASSEMBLE  ELEMENT  MATRIX  (SYMMETRIC  OR  NOT)  AND/OR  VRCTOR. 

C THE  MATRIX  IS  STORED  BLOCKWISE  ON  DISK 
C INPUT 

C IKG  IF  IKG.EQ.1  ASSEMBLE  ELEMENT  MATRIX  KE 

C IFG  IF  IFG. EQ. 1 ASSEMBLE  ELEMENT  VECTOR  FE 

C IDLE  NUMBER  OF  D.O.F.  OF  THE  ELEMENT 

NSYM  0=SYMMETRIC  PROBLEM,  1=NON  SYMMETRIC  PROBLEM 

C IE1.IE2  FIRST  AND  LAST  COLUMN  OF  KG  TO  BE  ASSEMBLED 

C KLOCE  ELEMENT  LOCALIZATION  VECTOR 

C KLD  CUMULATIVE  COLUMN  HEIGHTS  IN  KG 

C VKE  ELEMENT  MATRIX  KE  (FULL  OR  UPPER  TRIANGLE  BY 

C DESCENDING  COLUMNS) 

C VFE  ELEMENT  VECTOR  FE 

C OUTPUT 

C VKGS, VKGD, VKGI  GLOBAL  MATRIX  (SKYLINE) 

C (SYMMETRIC  OR  NOT) 

C VFG  GLOBAL  LOAD  VECTOR 

IMPLICIT  REAL*8 ( A-H ,0-Z ) 

DIMENSION  KLOCE (*) ,KLD(*) , VKE(*) ,VFE(*) ,VKGS(*) ,VKGD(») , 

1 VKGI ( * ) , VFG( * ) 

C ASSEMBLE  ELEMENT  MATRIX 

IF(IKG.NE.I)  GO  TO  100 
I0BL0C=KLD(IE1 )-1 
IEQO=IDLE 
IEQ1 = 1 

C FOR  EACH  COLUMN  OF  KE 

DO  90  JD= 1 , IDLE 
IF(NSYM.NE.I)  IEQO= JD 
JL=KLOCE ( JD) 

IF(JL)  90,90,10 
10  I0=KLD(JL+1 )-IOBLOC 

IEQ=IEQ1 
IQ=  1 

IF( JL. LT. IE  1 . OR . JL. GT. IE2)  GO  TO  90 

C FOR  EACH  LOW  OF  KE 

DO  80  IDs  1, IDLE 
IL=KLOCE (ID) 

IF(NSYM.EQ.I)  GO  TO  30 
IF(ID-JD)  30,20,20 
20  IQsID 

30  IF(IL)  80,80,40 

40  IJsJL-IL 

IF(IJ)  80,50,60 

C DIAGONAL  TERMS  IN  KG 

50  VKGD (IL)= VKGD ( IL )+VKE (IEQ) 

GO  TO  80 

C UPPER  TRIANGLE  TERMS  IN  KG 

60  IsIO-IJ 
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C 


80 

90 

C— 

100 


110 

120 

130 


G 


5 

C- 


VKGS ( I ) = VKGS (I)+VKE(IEQ) 

IF(NSYM.NE.I)  GO  TO  80 

LOWER  TRIANGLE  TERMS  IN  KG 

IEQI= (ID-1 )*IDLE+JD 
VKGI ( I ) = VKGI ( I ) + VKE ( I EQI ) 

IEQ=IEQ+IQ 
IEQ1 =IEQ1 +IEQO 

ASSEMBLE  ELEMENT  VECTOR 

IF(IFG.NE.I)  GO  TO  130 
DO  120  ID=1 , IDLE 
IL=KLOCE (ID) 

IF(IL)  120,120,110 
VFG(IL)=VFG(IL)+VFE(ID) 

CONTINUE 

RETURN 

END 

SUBROUTINE  SOLD( VKGS , VKGD , VKGI , VFG.KLD , NEQ, MP , IFAC , ISOL , NSYM , ENERG 

1 , KEB,KPB,M4,M7, NLBL, NBLM) 


TO  SOLVE  A LINEAR  SYSTEM  (SYMMETRICAL  OR  NOT). 

THE  MATRIX  IS  STORED  ON  FILE  M4  BY  SKYLINES. 

AFTER  TRIANGULARIZATION  IT  IS  STORED  ON  FILE  M5 
INPUT 

VKGS, VKGD, VKGI  SYSTEM  MATRIX  : UPPER,  DIAGONAL  AND  LOWER 


VFG 

KLD 

NEQ 

MP 

IFAC 

ISOL 

NSYM 

KEB 

KPB 


PARTS 

SECOND  MEMBER 

ADDRESSES  OF  COLUMN  TOP  TERMS 
NUMBER  OF  EQUATIONS 
OUTPUT  DEVICE  NUMBER 
IF  IFAC. EQI  TRIANGULARIZATION  OF 
THE  MATRIX 

IF  ISOL .EQ. 1 COMPUTE  SOLUTION  FROM  THE 
TRIANGULARIZED  MATRIX 
INDEX  FOR  NON  SUMMETRIC  PROBLEM 
NUMBER  OF  FIRST  EQUATION  IN  EACH  BLOCK 
NUMBER  OF  FIRST  BLOCK  CONNECTED  TO  EACH 
BLOCK 


OUTPUT 

VKGS, VKGD, VKGI  TRIANGULARIZED  MATRIX  (IF  IFAC. EQ. 1 ) 

VFG  SOLUTION  (IF  IS0L.EQ.1) 

ENERG  SYSTEM  ENERGY  (IF  NSYM.EQ.O) 


IMPLICIT  REAL*8 ( A-H , 0-Z) 

DIMENSION  VKGS ( * ) ,VKGD(*) ,VKGI(») ,VFG(») ,KLD(») ,KEB(») ,KPB(») 
DATA  ZERO/O. DO/ 


REWIND  M4 
REWIND  M7 
IK= 1 

IF ( VKGD ( 1 ) .NE. ZERO)  GO  TO  5 

WRITE(MP, 2000 ) IK 

STOP 

ENERG=ZERO 

— FOR  EACH  BLOCK  TO  BE  TRIANGULARIZED 
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J 1MIN=NLBL+1 
J1MAX=NLBL+NL3L 
DO  105  13= 1 , NBLM 


C READ  A BLOCK  TO  BE  TRIANGULARIZED 

READ(M4)  ( VKGS (I ) , 1=1 , NLBL) 

IF(NSYM.EQ.I)  READCM4)  ( VKGI (I ) , 1=1 , NLBL) 

C PARAMETERS  FOR  BLOCK  13 

IKO=KEB( IB) 

IK 1 =KEB( 13+1 )-1 


IB0=KPB(I3) 
JO=KLD(IKO)-1 
IF(IBO.EQ.IB)  GO  TO  11 


C BACKSPACE  ON  CONNECTED  BLOCKS 

1 1 =IB-IBO 
DO  10  1=1,11 
BACKSPACE  M7 

IFCNSYM.EQ. 1)  BACKSPACE  M7 

10  CONTINUE 

C FOR  EACH  CONNECTED  BLOCK  (INCLUDING  BLOCK  IB  ITSELF) 

11  DO  103  IBC=I30, IB 
IF(IBC.EQ.IB)  GO  TO  12 
READ(M7)  (VKGS ( I ) , I=J 1 MIN , J1MAX ) 

IF(NSYM.EQ.I)  READ(M7)  (VKGI (I ) , I=J 1MIN , J1MAX) 

C PARAMETERS  OF  CONNECTED  BLOCK 

12  IIO=KEB( IBC ) 

III =KEB( IBC+1 )-1 
JC0=KLD(II0)-1 
IF(IBC.NE.IB)  JC0=JC0-NL3L 

C FOR  EACH  COLUMN  OF  BLOCK  IB  TO  BE  MODIFIED 

DO  100  IK=IKO , IK1 
JHK=KLD(IK )-J0 

C ADDRESS  OF  NEXT  COLUMN  TOP  TERM  IK+1 

JHK1 =KLD(IK+1 )-J0 

C HEIGHT  OF  COLUMN  IK  (INCLUDE  UPPER  AND  DIAGONAL  TERMS) 

LHK=JHK1-JHK 
LHK1 =LHK-1 

C ROW  OF  FIRST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMIN=IK-LHK1 
I MIN  1 =IMIN-1 

C ROW  OF  LAST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMAX=IK— 1 

IF(LHKI.LT.O)  GO  TO  100 
IFQFAC.NE.  1)  GO  TO  90 
IF(NSYM.EQ.O)  GO  TO  14 
IB1 =13 


IF(IMINI.LT.IKO)  131=130 

IF(IBC.EQ.IB1 ) VKGI ( JHK)=VKGI (JHK)/VKGD(IMIN1 ) 


14  IF( IBC. EQ. IB.AND. IK . EQ. IKO ) GO  TO  40 
IF(LHKI.EQ.O)  GO  TO  40 

C FIND  FIRST  AND  LAST  ROW  OF  COLUMN  IK  AFFECTED 

C BY  CONNECTED  BLOCK  IBC 

IMINC=MAXO (IMIN , IIO ) 

IMAXC=MINO(IMAX, III) 

IF( IMINC.GT. IMAXC)  GO  TO  40 
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C MODIFY  NON  DIAGONAL  TERMS  OF  COLUMN  IK 

JCKsJHK+IMINC-IMINI 

JHJ=KLD(IMINC)-JCO 

c FOR  each  term  to  be  modified,  located  at  jck 

DO  30  IJsIMINC.IMAXC 


JHJ1 =KLD(IJ+1 )-JC0 

— NUMBER  OF  MODIFICATIVE  TERMS  OF  COEFFICIENT  LOCATED  AT  JCK 
IC=MINO( JCK-JHK, JHJ1-JHJ) 

IF(IC.LE.O.AND.NSYM.EQ.O)  GO  TO  20 
C 1 =ZERO 

IF(IC.LE.O)  GO  TO  17 

JIsJHJI-IC 

J2= JCK-IC 

IF(NSYM.EQ.I)  GO  TO  15 

VKGS ( J C K ) = VKGS ( J C K ) -SC AL ( VKGS ( J 1 ) , VKGS ( J 2 ) , IC ) 

GO  TO  20 


15  VKGS ( JCK )= VKGS (JCK)-SCAL(VKGI(J 1 ) , VKGI ( J2) , IC ) 

C 1 =SCAL(VKGS ( J 1 ) , VKGI ( J2) , IC ) 

17  VKGI ( JCK)= (VKGI (JCK )-C1 )/VKGD(I J ) 

20  JCK=JCK+1 

30  JHJ=JHJ1 

C MODIFY  DIAGONAL  TERM 

40  IF(IBC.NE.IB)  GO  TO  90 


JCK=JHK 

CDIAG=ZERO 

DO  70  IJ=IMIN1 , IMAX 

C1=VKGS(JCK) 

IF(NSYM.EQ.I)  GO  TO  50 
C2=C1/VKGD(IJ) 

VKGS( JCK)=C2 
GO  TO  60 

50  C2=VKGI ( JCK) 

60  CDIAG=CDIAG+C 1 *C2 

70  JCK=JCK+1 

VKGD(IK)=VKGD(IK)-CDIAG 
IF( VKGD(IK ) ) 90,80,90 
80  WRITE (MP, 2000)  IK 

2000  FORMAT ( ' ***  ERROR,  ZERO  PIVOT  EQUATION  ',15) 

STOP 

C SOLVE  LOWER  TRIANGULAR  SYSTEM 

90  IF ( ISOL . NE. 1 ) GO  TO  100 

IF(IBC.NE.IB)  GO  TO  100 

IF(NSYM.NE.I)  VFG(IK)=VFG(IK)-SCAL(VKGS(JHK) ,VFG(IMIN1 ) ,LHK) 
IF ( NSYM. EQ. 1 ) VFG(IK)=VFG(IK)-SCAL(VKGI ( JHK) , VFG(IMIN1 ) ,LHK) 
100  CONTINUE 


C NEXT  CONNECTED  BLOCK 

103  CONTINUE 

C END  OF  ELIMINATION  OF  THIS  BLOCK 


IF(IB.EQ.NBLM)  GO  TO  105 
WRITE (M7 ) ( VKGS(I ) , 1=1 , NLBL) 

IF(NSYM.EQ.I)  WRITE (M7 ) (VKGI (I ), 1=1 , NLBL) 
105  CONTINUE 

IF(ISOL.NE.I)  RETURN 
C SOLVE  DIAGONAL  SYSTEM 
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IF(NSYM.EQ. 1 ) GO  TO  120 
DO  110  IKsl.NEQ 
C 1 =VKGD( IK ) 

C2=VFG(IK)/C1 

VFG(IK)=C2 

110  ENERG=ENERG+C 1 *C2*C2 

C SOLVE  UPPER  TRIANGULAR  SYSTEM 

120  IBsMBLM 

IK0=KEB(IB)-1 
J0=KLD(IK0+1 )-1 
IK=NEQ+1 
JHK1=KLD(IK)-J0 


c FOR  EVERY  EQUATION  FROM  NEQ  TO  1 

130  IKsIK-1 

C READ  A BLOCK  IF  REQUIRED 

IF(IK.NE.IKO)  GO  TO  135 
BACKSPACE  M7 

IF(NSYM.EQ.I)  BACKSPACE  M7 
READ(M7)  ( VKGS (I ) ,1=1, NLBL) 

IF( NSYM. EQ. 1 ) READ(M7)  (VKGI(I) ,1=1 , NLBL) 


BACKSPACE  M7 

IF(NSYM.EQ.I)  BACKSPACE  M7 

13=13-1 

IK0=KEB(IB)-1 

J0=KLD(IK0+1 )-1 

JHK1 =KLD(IK+1 )-J0 

C MODIFY  THE  UNKNOWN  VECTOR 

135  IF(NSYM.EQ. 1)  VFG(IK)=VFG(IK)/VKGD(IK) 

IF(IK.EQ.I)  RETURN 
C1=VFG(IK) 

JHK=KLD(IK)-J0 

JBK=JHK1-1 

IF( JHK.GT. JBK)  GO  TO  150 
I J=IK-JBK+JHK-1 
DO  140  JCK=JHK, JBK 
VFG(IJ )=VFG(IJ )-VKGS( JCK)*C1 
140  IJ=IJ+1 
150  JHK1 =JHK 
GO  TO  130 
END 

SUBROUTINE  3LNLND 

C TO  CALL  BLOCK  ' NLND ' 

C TO  SOLVE  A STEADY  NON  LINEAR  PROBLEM 

IMPLICIT  REAL *8 ( A-H , 0-Z ) 

CHARACTER*4  TBL 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ASSE/NEQ , NSYM , NKG , NKE , NDLE 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NP AS , NITER , ITER , IMETH , ILAG , INLN 
COMMON/NUMB/M , Ml , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
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COMMON /ALLO/NVA, IVA, IVAMAX, NREEL , NTBL 

COMMON/LOCA/LCORG f LDLNC , LNEQ , LDIMP, LCODE , LINTF , LPREG , LLD , LLOCE , 

1 LCORE , LNE , LPREE , LNPEG , LSDEG , LDLE , LKE , LFE , LKGS , LKGD , LKGI , LFG , 

2 LRES, LDLG , LNELS, LEB, LPB 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASSEL , IBAR 
COMMON/DISK/NLBL, NBLM 

COMMON  VA( 20000) 

DIMENSION  TBL(II) 

DATA  TBL/’ KGS  ','KGD  ','KGI  ','FG  ','KE  ','FE  ','RES  ','DLE 

1 ' DLG  ','LEB  ','LPB  '/, DEUX/2 . DO/ , NBLMAX/1 00/ 

ILAGsNLAG 
INLNsI 
NSEQ=NSEQ+1 
NSEQ0=NSEQ0+1 
WRITE (MP, 2000)  M 

2000  FORMAT (/ / ' ON  DISK  ASSEMBLAGE  AND  NONLINEAR  SOLUTION  (M=', 

1 12, ' ) ' /IX, 60( ' = ' ) ) 


IF( NSEQO. NE. 1 ) GO  TO  10 
IF(NMNL.EQ.O)  GO  TO  10 

C OPEN  DIRECT  ACCESS  FILE  M3  (ELASTO-PLASTIC  MATRICES) 

LD=16*3 

OPEN (M3,FILE= ' M3 . DAT ' ,STATUS='NEW' ,ACCESS= ' DIRECT ' , RECL=LD) 

C OPEN  DIRECT  ACCESS  FILE  M9  (STIFFNESS  IDENTIFIER  DATA) 

LT=NPEM*4 

OPEN (M9,FILE='M9. DAT' ,STATUS='NEW' ,ACCESS= 'DIRECT ' ,RECL=LT) 

C — OPEN  DIRECT  ACCESS  FILE  MH  (PATH  HISTORY  DATA) 

IF(NHIS.EQ.O)  GO  TO  10 
LH=NPEM*NHIS*8 

OPEN (MH,FILE='MH. DAT' ,STAT!JS= 'NEW' ,ACCESS= ' DIRECT ', RECL=LH) 
10  IF(NSEQ. NE. 1 ) GO  TO  50 

C OPEN  DIRECT  ACCESS  FILE  MS  (STRESSES,  STRAINS  AND  PWPS) 

LS=NSEM*8 

OPEN ( MS,FILE= ' MS . DAT ' ,STATUS= ' NEW' ,ACCESS= 'DIRECT ' ,RECL=LS) 

C OPEN  SEQUENTIAL  FILES,  M4  AND  M7  (STORE  MATRIX  KG) 

OPEN (M4,FILE='M4. DAT' ,STATUS='NEW' ,FORM= 'UNFORMATTED ' ) 

OPEN (M7 ,FILE= 'M7. DAT ' , STATUS= ' NEW' ,FORM= ' UNFORMATTED ' ) 

C TO  ALLOCATE  SPACE 


IF(LKGD.EQ.I)  CALL  ESPACE (NEQ, 1 , TBL(2 ) , LKGD) 
IF(LFG.EQ.I)  CALL  ESPACE(NEQ, 1 ,TBL(4) ,LFG) 
IF(LKE.EQ.I)  CALL  ESPACE (NKE , 1 , TBL(5 ), LKE ) 
IF(LFE.EQ.I)  CALL  ESPACE (NDLE , 1 , TBL(6 ), LFE ) 
IF(LRES. EQ. 1 ) CALL  ESPACE (NDLT+NEQ, 1 , TBL (7 ) ,LRES ) 
IF(LDLE.EQ.I)  CALL  ESPACE (NDLE , 1 , TBL(8 ), LDLE ) 
IF(LDLG.EQ.I)  CALL  ESPACE (NEQ, 1 ,TBL(9 ) ,LDLG) 

C FIND  BLOCK  LENGTH 

NLBLrO 

NBLM=0 

13=2 

12= 1+NSYM 

IF(NLBL.EQ.O)  GO  TO  20 
IF(NBLM.EQ.O)  NBLM=NKG/NLBL+2 
GO  TO  40 

20  I 1 =NVA-IVA-(2*NBLMAX+2)/NREEL-1 


o o 
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IF ( 1 1 . GE . ( NKG*I2+2 ) ) GO  TO  30 

C CASE  WHERE  MATRIX  KG  IS  TO  BE  SEGMENTED 

NL3L=I 1/(DEUX*I2) 

NBLMsNKG/NLBL+2 

C CASE  WHERE  MATRIX  KG  IS  IN  CORE 

30  NLBLsNKG 

NBLM=1 
13=1 

40  WRITE (MP, 2010)  NLBL.NBLM 

2010  F0RMAT(15X, 'BLOCKS  LENGTH  IN  KG  (NLBL)=’,I5/ 

1 15X, 'MAX.  NUMBER  OF  BLOCKS  IN  KG  =',I5) 

CALL  ESPACE (NBLM+1 , 0 , TBL( 10), LEB) 

CALL  ESPACE (NBLM, 0 , TBL( 1 1 ) , LPB) 

IF(LKGS.EQ.I)  CALL  ESPACE (NLBL*I 3, 1 , TBL( 1 ) ,LKGS) 

IF( NSYM.EQ. 1 .AND. LKGI .EQ. 1 ) CALL  ESPACE (NLBL*I 3, 1 ,TBL(3) ,LKGI) 

C TO  EXECUTE  THE  BLOCK 

50  CALL  EXNLNDCVA(LLD) ,VA(LDIMP) ,VA(LLOCE) ,VA(LCORE) ,VA(LCODE) , 

1 VA(LINTF) ,VA(LPREG) , VA(LPREE) ,VA(LNE) , VA(LKE) ,VA(LFE) ,VA(LKGS) , 

2 VA(LKGD) f VA(LKGI ) , VA(LFG) ,VA(LCORG) , VA(LDLNC) , VA(LNEQ) , 

3 VA(LNPEG) ,VA(LRES) ,VA(LSDEG) ,VA(LDLE) , VA(LDLG) , VA(LEB) ,VA(LPB) ) 
RETURN 

END 

SUBROUTINE  EXNLND(KLD , VDIMP f KLOCE , VCORE , KCODE , KINTF , VPREG , VPREE , 

1 KNE , VKE , VFE , VKGS , VKGD , VKGI , VFG, VCORG , KDLNC , KNEQ, KNPEG , VRES , 

2 KSDEG , VDLE , VDLG , KEB, KPB) 


TO  EXECUTE  BLOCK  ' NLND ' 

C ASSEMBLE  AND  SOLVE  A NON  LINEAR  PROBLEM  BY  NEWTON-RAPHSON  METHOD 

C WHEN  MATRIX  KG  IS  STORED  BLOCKWISE  ON  DISK 

C IMETH.EQ. 1 COMPUTE  K AT  EACH  ITERATION 

C IMETH.EQ. 2 K IS  CONSTANT  AT  EACH  ITERATION 

C IMETH.EQ. 3 RECOMPUTE  K AT  THE  BEGINNING  OF  EACH  STEP 

C IMETH.EQ. 4 K IS  LINEAR  AT  THE  FIRST  ITERATION (DEFAULT) 

IMPLICIT  REAL*8 (A-H , O-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/P REL/NGPE , NPRE , NPRM , NMNL , NHIS 
C0MM0N/A3SE/NEQ, NSYM , NKG , NKE , NDLE 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG , NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NP AS , NITER , ITER , IMETH , ILAG , INLN 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO , ISEQ, IASS EL , IBAR 
COMMON/DISK/NLBL, NBLM 

DIMENSION  KLD(») ,VDIMP(*) ,KLOCE(») ,VCORE(») ,KCODE(») ,KINTF(») , 

1 VP REG ( * ) , VPR£E(*) ,KNE(») , VKE(*) ,VFE(») ,VKGS(») ,VKGD(*) ,VKGI(») , 

2 VFG(*) ,VCORG(») ,KDLNC(») ,KNEQ(*) , KNPEG ( * ) , VRES ( * ) , KSDEG ( * ) f 

3 VDLE ( * ) f VDLG ( * ) ,KEB( *) f KPB( * ) 

DATA  ZERO/O . DO/ , UN/1 . DO/ 

C 

C INITIALIZE  FILE  MS 

IF(NSEG.EQ.I)  CALL  INITMS(NELT, NSEM, MS) 

IF( NSEQO. NE. 1 ) GO  TO  10 

C INITIALIZE  FILES  M9  AND  MH  IF  DEAL  WITH  NONLINEAR  MATERIAL 
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IF(NMNL.EQ. 1 ) CALL  INITM9 (M9 , MELT, NPEM) 

IF(NHIS.GT.O)  CALL  INITMH( VPREG , VPREE , KNPEG, KCODE , MS , MH , NPRE , 
1 NPRM, NELT) 

10  DPASO=ZERO 
XPAS=ZERO 
IPAS=0 

C READ  A CARD  DEFINING  A SET  OF  IDENTICAL  STEPS 

READ(MR, 1000 ) DP AS, II , 12, 13, XI ,X2, IELS, IEQL 
1000  FORMAT (F10. 0, 315, 2F10. 0,215) 

IF(II.GT.O)  NPAS=I 1 
IFCI2.GT.0)  NITER=I2 
IFCI3.GT.0)  IMETH=I3 
IF ( X 1 .GT.ZERO)  EPSDL=X1 
IF(X2.GT.ZER0)  0MEGA=X2 

C LOOP  OVER  ALL  STEPS 

DO  130  IP  = 1 , NPAS 

IPAS=IPAS+1 

XPAS=XPAS+DPAS 

WRITE(MP,2000)  IPAS, DPAS.XPAS, NITER, IMETH , EPSDL, OMEGA 
2000  F0RMAT(/1X,13('-’), 'STEP  NUMBER  (IPAS) : ' , 15// 


1 14X, 'INCREMENT  (DPAS)= ’ , E12. 5/ 

2 14X, ’TOTAL  LEVEL  (XPAS)= » ,E12.5/ 

3 14X, 'NUMBER  OF  ITERATIONS  (NITER )= ' , 1 12/ 

4 14X, 'METHOD  NUMBER  (IMETH)= ' , 112/ 

5 14X, 'TOLERANCE  (EPSDL)= ' ,E12.5/ 

6 14X, 'OVER  RELAXATION  FACTOR  (OMEGA)= ' ,E12.5/) 

C INCREMENT  THE  LOADS  AND  STORE  IN  THE  RESIDUAL  VECTOR 

CALL  MAJ(DPAS, ZERO , NEQ, VFG, VRES) 

C UPDATE  TOTAL  LOAD  VECTOR 

DO  20  1=1, NEQ 

20  VRES(NDLT+I )=VRES(NDLT+I )+VRES(I ) 

C LOOP  OVER  EQUILIBRIUM  ITERATIONS 


DO  110  ITER=1, NITER 
IFCIMETH.GT.4)  WRITE (MP, 2005 ) IMETH 
2005  FORMAT ('  **  ERROR,  METHOD: ', 13, ' UNKNOWN') 

IFCIMETH.GT.4)  STOP 

C DECIDE  IF  GLOBAL  MATRIX  IS  TO  BE  ASSEMBLED 

IKT=0 

IF ( IMETH. EQ. 1 .0R.IMETH.EQ.4)  IKT=1 

IFCIMETH.EQ.2.AND.IASSEL.EQ. 1 .AND. IPAS. EQ. 1 .AND. ITER. EQ. 1 ) IKT=1 
IF ( IMETH. EQ. 3. AND. ITER. EQ. 1 ) IKT=1 
IF(IKT.EQ.O)  GO  TO  60 

C INITIALIZE  GLOBAL  MATRIX  TO  ZERO  IF  IT  IS  TO  BE  ASSEMBLED 

IFCNSEQ.EQ. 1. AND. IPAS. EQ. 1. AND. ITER. EQ. 1)  GO  TO  40 
DO  30  1=1 , NEQ 
30  VKGD(I )=ZERO 

C FORM  TABLES  EB  AND  PB  DEFINING  EQUATION  BLOCKS 

40  CALL  EQBLOC(KLD , NLBL, NBLM, NEQ, KEB, KPB) 

WRITE (MP, 2010)  NBLM 

2010  F0RMATC15X, 'NUMBER  OF  BLOCKS  IN  KG  (NBLM)=',I5) 

IFCM.LT. 2)  GO  TO  50 

WRITE(MP, 2020 ) (KEB( I ) , 1=1 , NBLM+1 ) 

2020  FORMAT (/'  FIRST  EQUATION  IN  EACH  BLOCK  (EB) ' /(5X, 2015 ) ) 

WRITE (MP, 2030)  (KPB(I), 1=1, NBLM) 


251 


2030  FORMAT (/ ' FIRST  BLOCK  CONNECTED  TO  EACH  BLOCK:  (PB) ' /(5X, ?0I5 ) ) 
C ASSEMBLE  KG 

50  CALL  ASKGD(KLD , VDIMP , KLOCE , VCORE , KCODE , KINTF , VPREG , VPREE , KNE , 

1 VKE , VFE , VKGS , VKGD , VKGI , VFG , KNPEG , KSDEG , VDLE , VDLG , KEB) 

C SOVLE 

60  CALL  SOLD(VKGS, VKGD, VKGI, VRES, KLD, NEQ.MP, IKT, 1 , NSYM, ENERG, KEB, 

1 KPB,M4,M7, NLBL, NBLM) 

IF ( IKT . EQ . 1 . AND . M . GT . 1 ) CALL  PRPVTS(VKGD) 

C UPDATE  STRESSES,  STRAINS  AND  PWPS 

CALL  ASGRADCKLD, VDIMP, KLOCE, VCORE, KCODE, KINTF, VPREG, VPREE, KNE, 

1 VKE , VFE , VKGS , VKGD , VKGI , VRES , KNPEG , KSDEG , VDLE , VDLG , NRES ) 

C UPDATE  THE  SOLUTION 

CALL  MAJ (OMEGA , UN , NEQ , VRES , VDLG ) 

C COMPUTE  THE  NORM 

CALL  NORME (NEQ, VRES, VDLG, XNORM) 

IF(M.GT.O)  WRITE (MP, 2040)  ITER, XNORM 
2040  F0RMAT(5X, 'ITERATION  (ITER ) : ' , 13, ' NORM  (XNORM)= ' ,E12.5) 

IF( M.GE. 2)  CALL  PRSOL(KDLNC, VCORG, VDIMP, KNEQ, VDLG) 

C UPDATE  STRESSES,  STRAINS  AND  PWPS 

C CALL  ASGRAD(KLD, VDIMP, KLOCE, VCORE, KCODE, VPREG, VPREE, KNE, VKE, 

C 1 VFE, VKGS, VKGD, VKGI, VRES, KNPEG, KSDEG, VDLE, VDLG, NRES) 
IF(NRES.EQ.O)  GO  TO  120 
IF ( XNORM. LE. EPSDL)  GO  TO  120 

C ASSEMBLE  RESIDUAL  VECTOR 

DO  70  1=1, NEQ 
70  VRES(I )=ZERO 

CALL  ASRESD ( 1 , 0 , KLD , VDIMP , KLOCE , VCORE , VPREG , VPREE , KNE , VKE , VFE , 

1 VKGS, VKGD, VKGI, VFG, KNPEG, KSDEG, VDLE, VDLG, VRES, VRES(NEQ+1 )) 

DO  80  1=1, NEQ 

80  VRES (I )=VRES(NDLT+I )-VRES(I ) 

110  CONTINUE 

ITER=NITER 

C END  OF  STEP 

120  DPAS0=DPAS 

WRITE(MP, 2050 ) ITER, NITER 

2050  FORMAT (/I OX, 14, ' PERFORMED  ITERATIONS  OVER ', 14/) 

IF( M. LT. 2)  CALL  PRSOLCKDLNC, VCORG, VDIMP, KNEQ, VDLG) 

IF( IELS.EQ. 1 ) CALL  ELSOL(KLD, VDIMP, KLOCE, VCORE, VPREE, KNE, VKE, 

1 VFE , VKGS , VKGD , VKGI , VDLE , VDLG , VRES , IPAS , NLAG , IEQL ) 

130  CONTINUE 

C FOR  THE  PROBLEM  WITHOUT  CONSTRUCTION  SEQUENCES 

C EVALUATE  AND  PRINT  EQUILIBRIUM  RESIDUAL  VECTOR 

IF(ISEQ.NE.O)  RETURN 

C SAVE  VECTOR  VFG  IN  VRES  AND  CHANGE  SIGN 

DO  140  1=1, NEQ 
140  VRES(I )=-VRES(NDLT+I ) 

C ASSEMBLE  THE  RESIDUALS 

CALL  ASRESDd , 1, KLD, VDIMP, KLOCE, VCORE, VPREG, VPREE, KNE, VKE, VFE, 

1 VKGS, VKGD, VKGI, VFG, KNPEG, KSDEG, VDLE, VDLG, VRES, VRES(NEQ+1)) 
WRITE (MP, 2060) 

2060  FORMAT (/ / ' EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRSOL (KDLNC , VCORG, VRES(NEQ+1 ) , KNEQ, VRES) 

RETURN 

END 
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SUBROUTINE  ELEMLB( VCORE , VPREE , VDLE , VKE , VFE ) 

C TO  COMPUTE  ELEMENT  INFORMATIONS  FOR  ALL  TYPES  OF  ELEMENTS 
IMPLICIT  REAL*8 (A-H ,0-Z) 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG , ICODE , IMATD , INSE , INPE , IDLEO , INELO , IPGO , IRES 
DIMENSION  VCORE ( * ) , VPREE (*) ,VDLE(*) ,VKE(») ,VFE(*) 


GO  TO  ( 10,  20,  30,  40 

, 50, 

C ELEMENT  OF  TYPE  1 

10 

CALL  EL1DCVC0RE, VPREE, 
GO  TO  900 

VDLE, 

C 

ELEMENT  OF  TYPE  2 

20 

CALL  EL2DCVC0RE, VPREE, 
GO  TO  900 

VDLE, 

C 

ELEMENT  OF  TYPE  3 

30 

CALL  EL2DCVC0RE, VPREE, 
GO  TO  900 

VDLE, 

C 

ELEMENT  OF  TYPE  4 

40 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  5 

50 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  6 

60 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  7 

70 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  8 

80 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  9 

90 

CONTINUE 
GO  TO  900 

C 

ELEMENT  OF  TYPE  10 

100 

CONTINUE 
GO  TO  900 

c 

OTHER  ELEMENTS 

c 

900 

RETURN 

END 

c-== 

SUBROUTINE  EL1DCVC0RE, 

VPREE 

n 

2 NODES  LINEAR  BAR  ELEMENT 

C 

C 

C 

C 

C 

C 


EVALUATE  ELEMENT  INFORMATIONS  ACCORDING  TO  ICODE  VALUE 
ICODE= 1 ELEMENT  PARAMETERS 
ICODE=3  EVALUATE  ELEMENT  STIFFNESS  MATRIX 
ICODE=5  EVALUATE  NODAL  FORCES  AT  DELETED  BAR  NODES 
ICODE=8  EVALUATE  STRESSES  AND  STRAINS 
ICODE=9  EVALUATE  NODAL  FORCES  AT  3AR  NODES 
IC0DE=10  PRINT  STRESSES  AND  STRAINS 
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C ELEMENT  PROPERTIES 

C VPREE(I)  YOUNG'S  MODULUS 

C VPR£E(2)  SECTION  AREA 

IMPLICIT  R£AL*8(A-H,0-Z) 

COMMON/PREL/NGPE , NPRE , NPRM, NMNL , NHIS 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG , ICODE, IMATD, INSE , INPE , IDLEO , INELO, IPGO , IRES 
COMMON/NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON /NLIN/EPSDL , OMEGA  f DPAS, NPAS , NITER , ITER , IMETH , ILAG , INLN 
DIMENSION  VCORE ( * ) , VPREE ( * ) , VDLE ( * ) , VKE ( * ) , VFE ( * ) , VSE (2 ) 

C 

DATA  ZERO/O. DO/ 

IMATD=1 

C 

C CHOOSE  FUNCTION  TO  BE  EXECUTED 

C 

GO  TO  (100,200,300,400,500,600,700,800,900, 1000), ICODE 
C 

C RETURN  ELEMENT  PARAMETERS  IN  COMMON  ' RGDT ' 

C 

100  IDLE0=4 
INEL0=2 
IPGOsI 
RETURN 

200  CONTINUE 
RETURN 
C 

C EVALUATE  ELEMENT  STIFFNESS  MATRIX 

C 

300  DX=VCORE (3 )-VCORE ( 1 ) 

DY=VCORE (4 )-VC0RE(2 ) 

D=DSQRT(DX**2+DY**2 ) 

SIN=DY/D 

COS=DX/D 

FAC=VPREE(1 )*VPREE(2)/D 
X=ZERO 

IF(ILAG.GT.O)  READ (MS, REC=IEL)  VSE ( 1 ) 

IF(ILAG.GT.O)  X=VSE ( 1 )/D 
VKE(1 )=FAC*COS*COS+X 
VKE (2 )=FAC*COS*SIN 
VKE (3 )=FAC*SIN*SIN+X 
VKE (4 )=-VKE( 1 )-X 
VKE (5 )=-VKE (2 ) 

VKE (6 )=VKE ( 1 )+X 
VKE (7  )=-VKE (2 ) 

VKE (8 )=-VKE (3 )-X 
VKE (9 )=VKE (2 ) 

VKE ( 1 0 )=VKE (3 )+X 
RETURN 
C 

C NO  BODY  FORCE  FOR  BAR  ELEMENT 

C 

400  DO  410  1=1, IDLE 
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410  VFE(I )=ZERO 
RETURN 

n 

0 

c EVALUATE  NODAL  FORCES  AT  DELETED  BAR  NODES 

C 

500  READ  (MS,  REC=IEL)  VSEO) 

FORCE=VSE ( 1 ) 

DX=VC0RE(3)-VC0RE(1  ) 

DY=VCORE (4 )-VCORE (2 ) 

DL=DSQRT(DX**2+DY**2 ) 

SIN=DY/DL 

COS=DX/DL 

VFE ( 1 )=-FORCE*COS 

VFE (2 )=-FORCE*SIN 

VFE(3)=-VFE(1 ) 

VFE(4)=-VFE(2) 

VSEC1 )=ZER0 
VSE (2 )=ZERO 

WRITE (MS, REC=IEL)  VSE ( 1 ) , VSE (2 ) 

RETURN 

600  CONTINUE 
RETURN 

700  CONTINUE 
RETURN 

C 

C EVALUATE  BAR  FORCE  AND  STRAIN 

C ASSUME  PERFECTLY  PLASTIC  BEHAVIOR  FOR  NONLINEAR  MATERIAL 

C 

800  IRES=0 

READ (MS, REC=IEL)  VSE( 1 ) ,VSE(2) 

DX=VCORE (3 )-VCORE ( 1 ) 

DY=VCORE(4 )-VCORE (2 ) 

D=DSQRT(DX**2+DY**2 ) 

SIN=DY/D 

COS=DX/D 

SWI=VDLE(1 )*C0S+VDLE(2)«SIN 
SW J = VDLE ( 3 ) * COS+VDLE ( 4 ) *SIN 
ST  RAI N = ( SW J — SWI ) / D 
FORCE=STRAIN*VPREE (1 ) *VPREE (2 ) 

VSE(1 )=VSE(1 )+FORCE 
VSE(2)=VSE(2)+STRAIN 
IF(IMODEL.EQ.O)  GO  TO  810 
YIELD=VPREE (NPRE+1 ) 

IF( DABS (VSE (1 ) ) .LT. YIELD)  GO  TO  810 
IF( VSE ( 1 ).GT. YIELD)  VSE ( 1 )=YIELD*VPREE (2 ) 

IF(VSE(1 ) .LT. -YIELD)  VSE ( 1 )=-YIELD*VPREE (2 ) 

IRESal 

810  WRITE (MS, REC=IEL)  VSE( 1 ) ,VSE(2) 

RETURN 

C 

C EVALUATE  THE  ELEMENT  EQUILIBRIUM  RESIDUALS 

C 

900  READ (MS, RECrIEL)  VSE(1) 

DX=VCORE(3 )-VCORE ( 1 ) 
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C 

C 

C 

1000 


2090 


C==  = 


r 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c= 


DY=VCORE(4 )-VCORE(2) 

D=DSQRT(DX**2+DY**2 ) 

SIN=DY/D 
COS=DX/D 
FORCE=VSE ( 1 ) 

VFE ( 1 ) =-F0RCE*C0S 
VFE (2 )=-FORCE*SIN 
VFE (3  )=-VFE ( 1 ) 

VFE (4 )=-VFE (2 ) 

RETURN 

PRINT  FORCES  AND  STRAINS 

READ(MS, RECrIEL)  VSE( 1 ) , VSE(2 ) 

F0RCE=VSE ( 1 ) 

STRAIN=VSE(2) 

WRITE(MP, 2090 ) IEL, FORCE, STRAIN 
FORMAT (/ / ' SOLUTION  IN  ELEMENT  ',15/ 

1 'BAR  FORCE  = ',E12.5/'3AR  STRAIN  = ' ,E12.5) 
RETURN 
END 

SUBROUTINE  EL2D(VCORE, VPREE, VDLE.VKE, VFE) 


TWO  DIMENSIONAL  ELASTICITY  AND  PLASTICITY  INFORMATIONS 
ITPE=2  4 NODES  QUADRILATERAL  ELEMENT 

ITPE=3  8 NODES  QUADRATIC  ELEMENT 

EVALUATE  ELEMENT  INFORMATIONS  ACCORDING  TO  ICODE  VALUE 
IC0DE=1  ELEMENT  PARAMETERS 
ICODE=2  EVALUATE  INTERPOLATION  FUNCTIONS 
ICODE=3  EVALUATE  ELEMENT  STIFFNESS  MATRIX 
ICODE=4  EQUIVALENT  NODAL  LOADS  DUE  TO  BODY  FORCES 

ICODE=5  EQUIVALENT  NODAL  LOADS  DUE  TO  EXCAVATION 

IC0DE=6  NOT  WRITTEN  (FOR  FUTURE  USE) 

IC0DE=7  NOT  WRITTEN  (FOR  FUTURE  USE) 

IC0DE=8  EVALUATE  STRESSES,  STRAINS  AND  PWPS 
IC0DE=9  EQUIVALENT  NODAL  LOADS  DUE  TO  STRESSES  AT  G.P. 
ICODE=10  PRINT  STRESSES,  STRAINS,  PWPS,  PRINCIPAL  STRESSES 
ELEMENT  PROPERTIES 

VPREE ( 1 ) YOUNG'S  MODULUS 
VPREE (2 ) POISSON’S  COEFFICIENT 
VPREE (3)  UNIT  WEIGHT  (TOTAL) 

VPREE (4 ) COEFFICIENT  OF  LATERAL  EARTH  PRESSURE(IF  NEEDED) 


IMPLICIT  REAL*8 ( A-H , 0— Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 
COMMON/PREL/NGPE , NPRE , NPRM , NMNL , NHIS 

COMMON/ELEM/NELT , NNEL , NKEL , NTPE , NSDG , NLAG, NIDENT , NPG , NSEM , 

1 NPEM.NELS 

COMMON/ASSE/NEQ, NSYM , NKG , NKE , NDLE 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG, ICODE, IMATD,INSE,INPE,IDLEO,INELO,IPGO, IRES 
COMMON /NUMB/M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
COMMON/SEQU/NSEQ, NSEQO, ISEQ, IASS EL, IBAR 

COMMON/NLIN/EPSDL , OMEGA , DP AS , NPAS , NITER , ITER , IMETH , ILAG, INLN 
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COMMON /TVL3/YW AT , ROWA , BKWA, ATMP 

DIMENSION  VCORE ( * ) , VPREE (* ) , VDLE (■* ) , VKE ( * ) , VFE ( * ) 

DIMENSION  SIG(4) ,EPS(4) ,SIGO(4) ,XSTART(9) , HIST (9) ,VSE(31 ) , 
1 VCE (25 ) ,MT(9 ) 


C CHARACTERISTIC  DIMENSIONS  OF  THE  ELEMENT 

C DIMENSION  VCPG ( IPG) , VKPG(NDIM*IPG) ,VDE1 (IMATD**2) 

DIMENSION  VCPG(  9),VKPG(  1 8 ) , VDE 1 ( 16) 

C DIMENSION  VBE ( 5*IDLE) ,VDE(IMATD**2) ,VJ(NDIM**2) ,VJ1 (NDIM**2) 
DIMENSION  VBE ( 80),VDE(  1 6 ) , V J ( 4 ) , V J 1 ( 4) 

C DIMENSION  VNIXC  INEL*NDIM) , VNI  ( ( 1 +NDIM) *INEL*IPG) , IPGKED(NDIM) 
DIMENSION  VNIXC  16), VNI  ( 216),IPGKED(  2) 

C NUMBER  OF  G.P. 


DATA  IPGKED/3,3/ 

C 

DATA  ZERO/O. DO/, DEUX/2. DO/, X05/0.5D0/,RADN/. 572957795 130823D2/ 
DATA  EPX/1.D-6/ 

SQRT (X )=DSQRT (X ) 

ATAN2CX, Y)=DATAN2(X,Y) 

IMATD=4 

PI =4 . D0#DATAN ( 1 . DO) 

C 


C CHOOSE  FUNCTION  TO  BE  EXECUTED 

C 

GO  TO  (100,200,300,400,500,600,700,800,900, 1000) ,ICODE 
C 

C RETURN  ELEMENT  PARAMETERS  IN  COMMON  ’ RGDT' 

C 


100  IPG0=9 

IFCITPE.EQ.3)  GO  TO  110 

IDLE0=3 

INEL0=4 

RETURN 

110  IDLE0=16 
INEL0=3 
RETURN 
C 

C EVALUATE  COORDINATES,  WEIGHTS,  FUNCTIONS  N AND  THEIR 

C DERIVATIVES  AT  G.P. 

C 

200  CALL  GAUSS(IPGKED,NDIM,VKPG, VCPG, IPG) 

IFCM.LT. 2)  GO  TO  220 
WRITE (MP, 2000 ) IPG 

2000  F0RMATC/I5, ' GAUSS  POINTS '/I OX, ' VCPG ', 25X, ' VKPG  ' ) 

10=1 

DO  210  IG=1 , IPG 
I 1=I0+NDIM-1 

WRITE (MP, 20 10)  VCPG(IG) ,(VKPG(I) ,1=10,11) 

210  IO=IO+NDIM 

2010  FORMAT (1X,F 20. 15 , 5X, 3F20 . 15 ) 

220  CALL  NIQ(VKPG.VNI) 

IFCM.LT. 2)  RETURN 
1 1 = 3*INEL*IPG 

WRITE (MP, 2020 ) ( VNI (I ) , 1= 1 , II ) 

2020  FORMAT (/ ' FUNCTIONS  N AND  DERIVATIVES'/  (1X.8E12.5)) 
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RETURN 


C 

C EVALUATE  ELEMENT  STIFFNESS  MATRIX 

C 

C INITIALIZE  VKE 


300  DO  310  1=1, NKE 
310  VKE ( I )=ZERO 

IF(ISEQ.EQ.I)  VPREE (2 )= VPREE (4 )/ ( 1 . DO+VPREE (4 ) ) 
IFUSEQ.EQ.  1.AND.ISDE.EQ.2)  ISDE=1 

C CHECK  IF  NEED  TO  READ  ELEMENT  STRESS  DATA 

IMS=0 

IF(INLN.EQ.O)  IMODEL=0 
IF ( IMETH . EQ, 4. AND . ITER . EQ . 1 ) IMODEL=0 
IF(ILAG.GT.O)  IMS= 1 
IF(IMODEL.GT.O)  IMS=1 

IF(IMS.GT.O)  READ (MS, REC=IEL ) ( VSE(I ) , 1 = 1 , INSE ) 


C CHECK  IF  NEED  TO  READ  STRESS  STATE  AND  HISTORY  DATA 

IF ( IMODEL .GT . 0 ) READ(M9 , REC=IEL ) ( MT ( I ) ,1=1 , IPG) 

IF( IMODEL .GT . 0. AND . NHIS.GT. 0 ) CALL  RDMH(MH, IEL , IPG , IMODEL , 

1 XSTART.HIST) 

C UPDAT  COORDINATES  FOR  UPDATED  LAGRANGIAN  FORMULATION 

IF(ILAG.GT.O)  CALL  UPCORE (VCORE , VDLE, IDLE) 

C FORM  ELASTIC  STRESS-STRAIN  MATRIX  D FOR  LINEAR  MATERIAL 

IF(IMODEL.GT.O)  GO  TO  320 
CALL  D02 (VPREE , VDE , IKEL , IFEL ) 

IF(ISDE. EQ. 2)  CALL  DU2(VDE,BKWA) 

IF( M.GE. 2)  WRITE (MP, 2030)  (VDE(I) ,1=1 , 16) 


2030  FORMAT (/ 1 MATRIX  D'/1X,  16E12.5) 

C LOOP  OVER  G.P. 

320  I1=1+INEL 
12=1 

DO  370  IG=1 , IPG 
IF(IMS.EQ.O)  GO  TO  330 

C INPUT  DATA  AT  A G.P.  FOR  NONLINEAR  PROBLEM 

SIG(1 )=VSE(IG*4-3) 

SIG(2 )=VSE (IG*4-2 ) 

SIG(3)=VSE(IG*4-1 ) 

SIG(4 )=VSE (IG*4 ) 

330  IF(IMODEL.EQ.O)  GO  TO  340 
MTYPE=MT(IG) 

IF(IM0DEL.EQ.4)  EL=HIST(IG) 

C FORM  TANGENT  STRESS-STRAIN  MATRIX  D FOR  ALL  TYPES  OF  MODELS 

IF(IMODEL.EQ.I)  CALL  FVM2D( VPREE , SIG, VDE, ATMP , IKEL , NPRE) 
IFUM0DEL.EQ.2)  CALL  FMC2D(VPREE, SIG,  VDE,  IKEL , NPRE, MTYPE ) 
IF(IM0DEL.EQ.3)  CALL  FDP2D(VPREE , SIG, VDE, IKEL , NPRE, MTYPE ) 

IF (IMODEL . EQ. 4 ) CALL  FCP2D(VPREE , SIG, VDE, EL , IKEL , NPRE , MTYPE ) 

IF( IMODEL. EQ. 5)  CALL  FVS2D(VPREE , VCORE , SIG, VDE, ROWA, ATMP, NPRE ) 


C ADD  OTHER  MODELS  HERE  IF  NEEDED 

IV= (IEL-1 ) *IPG+IG 

WRITE (M3, REC=IV)  (VDE(I) ,1=1 , 16) 

IF( ISDE. EQ. 2)  CALL  DU2(VDE,BKWA) 

C EVALUATE  THE  JACOBIAN,  ITS  INVERSE  AND  ITS  DETERMINANT 

340  CALL  J ACOB( VNI (1 1 ) , VCORE , NDIM , INEL , VJ , VJ1 , DETJ ) 
IF(DETJ.LT.EPX)  WRITE(MP, 2040 ) IEL, IG, DETJ 


258 


2040  FORMAT ( ' ***  ELEM  ',15,'  G.P.  ',13,’  DET( J )= ' , E12. 5 ) 

IFCM.GE. 2)  WRITE (MP, 2050)  VJ , VJ1 , DETJ 
2050  FORMAT (/'  JACOBIAN= « , 4E 12. 5 / ' J INVERSE ,4E12.5/'  DETJ=' ,E12.5) 

C PERFORM  D*COEF 

C=VCPG(IG)*DETJ 
DO  350  1=1,16 
350  VDE1 (I )=VDE(I )*C 

C COMPUTE  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WRT  X,Y 

CALL  DNIDX(VNI (1 1 ) , VJ1 , NDIM, INEL , VNIX) 

IFCM.GE. 2)  WRITE (MP, 2060)  (VNIX (I ) , 1=1 , 16 ) 

2060  FORMAT (/'  VNIX '/( IX, 8E 12. 5) ) 

C FIND  RADIUS  FOR  AXISYMMETRIC  CASE 

IFCIKEL.EQ. 3)  CALL  RADIUS(VC0RE,VNI(I2) , R, INEL) 

C FORM  MATRIX  B FOR  REGULAR  OR  UPDATED  LAGRANGIAN  FORMULATION 

CALL  B02(VNIX, VNI (12) , INEL , IKEL , VBE , R ) 

IFCM.GE. 2)  WRITE (MP, 2070)  (VBE(I ) ,1=1 , 64) 

2070  FORMAT (/ ' MATRIX  B ' /( 1 X, 10E 12. 5 ) ) 

C FORM  LINEAR  COMPONENTS  IN  ELEMENT  STIFFNESS  MATRIX 

CALL  BTDB( VKE , VBE , VDE 1 , IDLE , IMATD , IKEL , NSYM ) 

IF(ILAG.EQ.O)  GO  TO  360 

C FORM  CAUCHY  STRESS  MATRIX  FOR  UPDATED  LAGRANGIAN  FORMULATION 

CALL  C02CSIG, VCE,C) 

C FORM  NONLINEAR  STRAIN-DISPLACEMENT  TRANSFORMATION  MATRIX 

CALL  BN2(VNIX,VNI(I2) , INEL, IKEL, VBE, R) 

C ADD  NONLINEAR  COMPONENTS  IN  ELEMENT  STIFFNESS  MATRIX 


CALL  BTDBC VKE , VBE , VCE , IDLE , 5 , IKEL , NSYM) 
350  12=1 2+3*INEL 

370  1 1 =1 1+3*INEL 

RETURN 


C 

C EVALUATE  EQUIVALENT  NODAL  FORCES  DUE  TO  BODY  FORCES 

C FX.FY  PER  UNIT  VOLUME  (FOR  GRAVITY  FX=0,  FY=-VPREE (3 ) ) 

C 


400  FX=ZERO 

FY=-VPREE (3 ) 

IF( ISDE. GT. 0. AND. ISEQ. EQ. 1 ) FY=R0WA-VPREE(3 ) • 

IFCISEQ.EQ.2)  FY=-ROWA 
IFCISEQ.EQ.8)  FY=ROWA 

IF(ISEQ. EQ. 2.0R. ISEQ. EQ. 8 ) CALL  WATTBL(VCORE, YWAT , IDLE, ISEQ) 
DO  410  1=1, IDLE 
410  VFE(I)=ZERO 
11  = 1 

DO  430  IG= 1 , IPG 

CALL  JAC0B(VNI(I1+INEL) ,VCORE, NDIM, INEL, VJ,VJ1, DETJ) 
IFCIKEL.EQ. 3)  CALL  RADIUS(VCORE , VNI (1 1 ) , R, INEL ) 

DX=VCPG(IG) *DETJ 

DY=DX*FY 

DX=DX*FX 

IFCIKEL.EQ. 3)  DY=DY*2.D0*PI*R 
12=11 
13=1 

DO  420  I N= 1 , INEL 

VFE (I3)=VFE(I3)+DX*VNI (12) 

VFECI3+1 )=VFE(I3+1 )+DY*VNI (12) 
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12=12+1 
420  13=13+2 

430  I1=I1+3*INEL 

C INITIALIZE  ELEMENT  HISTORY  DATA  FOR  THE  ADDED  ELEMENT 

IFUSEQ.NE.4)  RETURN 
IF(IMODEL.EQ.O)  RETURN 
DO  440  1=1, IPG 
MT ( I ) = 1 

440  IF(IM0DEL.EQ.4)  HIST (I )= VPREE (NPRE+8 ) 

WRITE ( M9 , REC=IEL ) ( MT ( I ) , 1=1 , IPG ) 

CALL  WRMH (MH, IEL , IPG , IMODEL , XST ART , HIST ) 

RETURN 

C 

C EVALUATE  EQUIVALENT  NODAL  FORCES  ON  EXCAVATED  SURFACE 

C 

500  NS=INSE*2+INPE 

READ(MS, REC=IEL)  (VSE (I ) , 1=1 , INSE) 

FY=VPREE(3) 

DO  510  1=1, IDLE 
510  VFE(I)=ZERO 
11  = 1 

C ELEMENT  NODAL  LOADS  DUE  TO  BODY  FORCE 

DO  530  IG=1 , IPG 

CALL  JACOB ( VNI ( I 1+INEL ) , VCORE , NDIM, INEL , VJ , VJ1 , DETJ ) 
IF(IKEL.EQ.3)  CALL  RADIUS  (VCORE , VNI  (1 1 ),  R,  INEL ) 
DX=VCPG(IG)*DETJ 
DY=DX*FY 

IF( IKEL . EQ. 3 ) DY=DY*2.D0*PI*R 
12=11 
13=1 

DO  520  IN= 1 , INEL 

VFEU3+1 )=VFE(I3+1 )+DY*VNI (12) 

12=12+1 
520  13=13+2 

530  I 1 =1 1+3*INEL 

C ELEMENT  NODAL  FORCES  DUE  TO  STRESSES  AT  G.P. 

IF(ILAG.EQ.I)  CALL  UPCORE (VCORE , VDLE , IDLE ) 

11  = 1 

DO  550  IG=1 , IPG 

CALL  JAC0B(VNI(I1+INEL) , VCORE, NDIM, INEL, VJ,VJ1 , DETJ) 

CALL  DNIDX(VNI(I1+INEL) ,VJ1 , NDIM, INEL, VNIX) 

IFUKEL.EQ.3)  CALL  RADIUS  (VCORE , VNI  (1 1 ),  R,  INEL ) 

DX=VCPG(IG)*DETJ 

IFUKEL.EQ.3)  DX=DX*2 . D0*PI*R 

SIG(1 )=VSE(IG*4-3)*DX 

SIG(2)=VSE(IG*4-2)*DX 

SIG(3)=VSE(IG*4-1 ) *DX 

IFUKEL.EQ.3)  SIG(4  ) = VSE(IG*4  )*DX 

12=11 

13=1 

DO  540  IN=1 , INEL 
Cl  =VNIX(IN) 

IN  1 =IN+INEL 
C2=VNIX(IN1 ) 
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VFE(I3)=VFE(I3)+C1*SIG(1 )+C2*SIG(3) 

VFECI3+1 )=VFE(I3+1)+C2*SIG(2)+C1*SIG(3) 

IFUKEL.ME.3)  GO  TO  540 
VFE (I 3)=VFE (I3)+VNI (I2)*SIG(4)/R 
12=12+1 
540  13=13+2 

550  1 1=1 1+3*INEL 

C SET  VECTOR  VSE  TO  ZERO  FOR  THE  EXCAVATED  ELEMENT 

DO  560  1=1, NS 
560  VSE (I )=ZERO 

WRITE (MS, REC=IEL)  (VSE (I ), 1=1 , NS) 

RETURN 

C 


C NOT  WRITTEN 

C 

600  CONTINUE 
RETURN 

C MOT  WRITTEN 

700  CONTINUE 
RETURN 
C 

C EVALUATE  STRESSES,  STRAINS  AND  PWPS  AT  G.P. 

C 

C READ  STRESSES,  STRAINS  AND  PWPS  IN  AN  ELEMENT 


300  NS=INSE*2+INPE 


READ(MS, REC=IEL)  (VSE (I ), 1=1 , NS) 

IF(ISEQ.EQ. 1)  VPREE (2 )=VPREE (4 )/ ( 1 . DO+VPREE (4 ) ) 

IF(ISEQ.EQ. 1 .AND. ISDE. EQ. 2)  I3DE=1 
IF(INLN.EQ.O)  IM0DEL=0 

C READ  STRESS  STATE  AND  HISTORY  DATA  FOR  NONLINEAR  MATERIAL 

IF(IMODEL.GT.O)  READ(M9 , REC=IEL)  (MT(I) ,1=1 , IPG) 

IF ( IMODEL . GT . 0 . AND . NHI S . GT . 0 ) CALL  RDMH(MH, IEL , IPG, IMODEL , 

1 XSTART.HIST) 

C UPDATE  COORDINATES  FOR  UPDATED  LAGRANGIAN  FORMULATION 

IF(ILAG.EQ.I)  CALL  UPCORE (VCORE , VFE , IDLE ) 

C FORM  ELASTIC  STRESS-STRAIN  MATRIX  FOR  LINEAR  MATERIAL 

IF ( IMODEL . EQ. 0 ) CALL  D02 (VPREE , VDE, IKEL , IFEL ) 

C LOOP  OVER  THE  G.P. 


IRES=0 
1 1 = 1+INEL 
12=0 

DO  890  IG=1 , IPG 

C READ  TANGENT  STRESS-STRAIN  MATRIX  D FROM  FILE  M3 

IF(IMODEL.EQ.O)  GO  TO  810 
IF(IMETH.EQ.4.AND.ITER.EQ. 1 ) GO  TO  810 
IV= (IEL-1 )*IPG+IG 
READ(M3,REC=IV)  (VDE(I) ,1=1 , 16) 

C EVALUATE  THE  JACOBIAN 

810  CALL  JACOB(VNKII),  VCORE,  NDIM,  INEL , VJ , VJ1 , DETJ) 

C EVALUATE  FUNCTIONS  D(NI)/D(X) 

CALL  DNIDX(VNKII)  ,VJ1  , NDIM,  INEL,  VNIX) 

C CALCULATE  RADIUS  FOR  AXISYMMETRIC  CASE 

IF (IKEL . EQ. 3 ) CALL  RADIUS(VCORE , VNI (12+1 ), R , INEL ) 

C PREVIOUS  STRESSES 
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3IG(1 )=VSE(IG*4-3) 

SIG(2)=VSE(IG*4-2) 

SIG(3  )=VSE(IG#4-1 ) 

SIG(4 )=VSE(IG*4 ) 

C INITIALIZE  STRAINS 

U11=ZER0 
U22=ZERO 
U21 =ZERO 
U 1 2=ZER0 
U33=ZERO 

C COMPUTE  LINEAR  (INCREMENTAL)  STRAINS  AT  G.  P. 

ID=1 

DO  820  IN=1 , INEL 
UN=VDLE(ID) 

VN=VDLE(ID+1 ) 

Cl =VNIX(IN) 

INI =IN+INEL 
C2=VNIX(IN 1 ) 

U11=U11+C1*UN 
U22=U22+C2*VN 
U21 =U21 +C2*UN 
U 1 2=U1 2+C 1 *VN 

IFCIKEL.EQ.3)  U33=U33+UN/R 
820  ID=ID+2 

EPS(1  )=U1 1 
EPS(2 ) =U22 
EPS(3)=U21+U12 
EPS(4)=U33 

IF(ILAG.EQ.O)  GO  TO  830 

C ADD  SECOND  ORDER  STRAINS  FOR  LAGRANGIAN  FORMUATION 

EPS ( 1 ) =E  PS ( 1 )+0. 5D0*(U 1 1 *U1 1 +U21 *U21 ) 

EPS(2)=EPS(2)+0. 5D0*(U12#U12+U22*U22) 

EPS(3 )=EPS(3 )+U 1 1 *U12+U21 *U22 

IF ( IKEL . EQ. 3 ) EPS(4)=EPS(4)+0.5D0*U33*U33 

C TIME-INDEPENDENT  RIGID  BODY  ROTATION  AND  STRESS  CHANGES 

W=0 . 5D0  * ( U 2 1 -U 1 2 ) 

SW 1 1 =2. D0*SIG(3 )*W 
SW12=(SIG( 1 )-SIG(2) ) *W 

C COMPUTE  STRESSES  BY  ASSUMING  (LINEAR)  ELASTIC  BEHAVIOR 

830  CALL  MULT (VDE, EPS, SIGO, 4,4,1) 

SIG0( 1 )=SIGO( 1 )+SIG( 1 ) 

SIG0(2)=SIG0(2)+SIG(2) 

SIGO(3)=SIGO(3)+SIG(3) 

SIGO (4 )=SIG0 (4 )+SIG(4 ) 

IF(IMODEL.EQ.O)  GO  TO  840 

C INPUT  HISTORY  DATA  AT  A G.P.  IF  NEEDED 

IF ( IMODEL . EQ. 4 ) ASTART=XSTART ( IG ) 

IFUM0DEL.EQ.4)  EL=HIST(IG) 

C USE  SPECIFIED  SOIL  MODEL  TO  FIND  ACTUAL  STRESSES 

IF(IMODEL.EQ. 1 ) CALL  VARMOD(VPREE ,SIG, EPS, ATMP, NPRE , MTYPE ) 
IFUM0DEL.EQ.2)  CALL  MC2D(VPREE, SIGO, SIG,  EPS,  NPRE, MTYPE) 

IF( IMODEL . EQ. 3 ) CALL  DP2D(VPREE, SIG, EPS, NPRE, MTYPE) 
IFUM0DEL.EQ.4)  CALL  CAP2D(VPREE, SIGO, SIG, EPS, ASTART,  EL, NPRE, 
1 MTYPE) 
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IF( IMODEL . EQ. 5 ) CALL  VSHEAR (VPREE, VCORE , SIG , EPS, ROV/A , ATMP, NPRE , 
1 MTYPE) 


C ADD  MORE  SOIL  MODELS  HERE  IF  NEEDED 

C UPDATE  STRESS  STATE  AND  HISTORY  DATA  AT  A G.P. 


IF(IMODEL.EQ.4)  HIST(IG)=EL 
MT(IG)=MTYPE 

IF( MTYPE. LE. 1 ) GO  TO  850 

IRES=1 

GO  TO  850 

C STRESSES  FOR  LINEAR  ELASTIC  ELEMENT 

840  SIG(1 )=SIG0(1 ) 

SIG(2)=SIG0(2) 

SIG(3)=SIG0(3) 

SIG(4 )=SIGO (4 ) 

C FIND  CAUCHY  STRESSES  FOR  UPDATED  LARGR ANGIAN  FORMULATION 

850  IF(ILAG.EQ.O)  GO  TO  860 
SIG(1 )=SIG( 1 )+SW11 
SIG  ( 2 ) =SIG  ( 2 )+3W 1 2 
SIG(3)=SIG(3)+SW1 1 

C UPDATE  STRESSES  AND  STRAINS 

860  DO  870  1=1,4 
IS=(IG-1 ) *4+1 
IE=IS+INSE 
VSE(IS)=SIG(I) 

870  VSE (IE )=7SE (IE)+EPS (I ) 

IF(NSDG.EQ.O)  GO  TO  880 

C UPDATE  PORE  WATER  PRESSURES 

IF(ISDE.GT.O)  CALL  PWPS (VCORE , VNI (12+1 ) , EPS, BKWA, ROWA, YWAT , 

1 PWP, ISDE, INEL) 

IF(ISDE.EQ.O)  VSE (IG+INSE*2)= ZERO 
IF(ISDE.EQ.I)  VSE (IG+INSE*2 )=PWP 
IF(ISDE. EQ. 2)  VSE (IG+INSE*2 )=VSE (IG+INSE*2 )+?WP 
830  I2=I2+3*INEL 
890  1 1 =1 1+3*INEL 


C STORE  UPDATED  STRESSES,  STRAINS  AND  PWPS 

WRITE(MS, REC=IEL)  ( VSE (I ) , 1= 1 , NS) 

C STORE  UPDATED  ELEMENT  HISTORY  DATA 

IF(IMODEL.EQ.O)  RETURN 

IF ( IMODEL . GT . 0 . AND . NHIS . GT . 0 ) CALL  WRMH(MH, IEL , IPG, IMODEL , 

1 XSTART , HIST ) 

C UPDATE  STRESS  STATE  DATA 

WRITE (M9,REC=IEL)  (MT(I ) , 1=1 , IPG) 

RETURN 

C 

C EVALUATE  EQUIVALENT  NODAL  LOADS  DUE  TO  STRESSES  AT  G.P. 

C 

C INITIALIZE  THE  ELEMENT  LOAD  VECTOR 

900  DO  910  ID= 1 , IDLE 
910  VFE(ID)=ZERO 

C READ  ELEMENT  STRESS  DATA 

READ(MS,REC=IEL)  (VSE (I ) , 1=1 , INSE) 

C UPDATE  COORDINATES  FOR  UPDATED  LAGRANGIAN  FORMULATION 

IF(ILAG.EQ.I)  CALL  UPCORE(VCORE, VOLE, IDLE) 

C LOOP  OVER  THE  G.P. 
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11=1 +INEL 
12=0 

DO  990  IG=1 , IPG 

C EVALUATE  THE  JACOBIAN 

CALL  J ACOB ( VNI (1 1 ) , VCORE , NDIM , INEL , VJ , VJ 1 , DET  J ) 

C EVALUATE  FUNCTIONS  D(NI)/D(X) 

CALL  DNIDX(VNI (I 1 ) , VJ1 , NDIM, INEL , VNIX) 

C FIND  RADIUS  AT  A G.P.  FOR  AXISYMMETRIC  CASE 

IF(IKEL.EQ. 3)  CALL  RADIUS (VCORE , VNI (12+1 ), R, INEL ) 

C INPUT  STRESSES 

C1=VCPG(IG)*DETJ 

IF( IKEL . EQ. 3 ) C 1 =C1 *2. DO*PI*R 

IF( ISDE. EQ. 2)  GO  TO  940 

SIG(1  )=VSE(IG*4-3)*C1 

SIG(2)=VSE(IG#4-2)*C1 


SIG(3)=VSE(IG*4-1 )*C1 

IF( IKEL . EQ. 3)  SIG(4 )=VSE(IG*4 )*C1 

GO  TO  950 

940  SIG(1 )=(VSE(IG*4-3)+VSE(INSE*2+IG))*C1 
SIG(2 )= (VSE(IG*4-2)+VSE (INSE*2+IG) )*C1 
SIG(3)=VSE(IG*4-1 )*C1 

IF(IKEL.EQ. 3)  SIG(4 )= (VSE (IG*4 )+VSE (INSE*2+IG) )*C1 


C CALCULATE  EQUIVALENT  NODAL  LOADS 

C FOR  REGULAR  OR  UPDATED  LAGRANGIAN  FORMULATION 


950  I D= 1 

DO  960  IN=1 , INEL 
C 1 =VNIX(IN ) 

INI =IN+INEL 
C2=VNIX(IN1 ) 

VFE(ID)=VFE(ID)+C1*SIG(1 )+C2*SIG(3) 

VFE(ID+1 )=VFE (ID+1 )+C2*SIG(2)+C1*SIG(3) 

IF ( IKEL . NE. 3 ) GO  TO  960 
INI =IN+I2 

VFE (ID)  = VFE (ID)+VNI (INI)  *SIG (4  )/R 
960  ID=ID+2 

I2=I2+3*INEL 
990  1 1 =1 1+3*INEL 

RETURN 
C 

C PRINT  STRESSES,  STRAINS,  PWPS  AND  PRICIPAL  STRESSES  AT  G.P. 

C 

1000  NS=INSE*2+INPE 

READ (MS, REC=IEL)  (VSE (I ), 1=1 , NS) 

WRITE (MP, 2080)  IEL 

2080  FORMAT (// ’ SOLUTION  IN  ELEMENT  ’,15) 

IF(M.EQ.O)  WRITE (MP, 208 1 ) 

IF(M.EQ.I)  V /RITE (MP, 2082) 

IF(M.GT.I)  WRITE (MP, 2083) 

2081  FORMAT ( 

1 ' P.G. ' ,7X, ' X ' , 1 IX, ' Y ’ ,9X , ' SIGX ' , 8X , ' SIGY ’ ,7X , ' TAUXY ' , 8X , ' PWPS ’ /) 

2082  FORMAT ( 

1 ' P.G. ' ,7X, ' X ' , 1 1X, ' Y ' , 9X , 1 SIGX ' , 8X, ' SIGY ' , 7X , ' TAUXY ' ,8X, 'PWPS V 

2 35X, ' EPSX' ,8X, 'EPSY' ,7X, 'GAUXY' /) 

2083  FORMAT ( 
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1 ' P.G. ' ,7X, ' X ' , 1 1X, ' Y ' ,9X , ' SIGX ' , 8X, ' SIGY ' ,7X, 'TAUXY ' , 8X, ' PWPS '/ 

2 35X, 'EPSX' ,8X, 'EPSY' ,7X, 'GAUXY' /35X, ' SIG1 ' ,8X, 'SIG2' ,7X, 'TAUMAX' , 

3 7X,'TETA'/) 


C LOOP  OVER  THE  G.P. 

12=0 

PWP=ZERO 

DO  1040  IG=1 , IPG 

C COMPUTE  COORDINATES  AT  G.P. 


X=ZERO 

Y=ZERO 

ID=1 

DO  1010  IN  = 1 , INEL 
XN=VCORE (ID) 

YN=VCORE (ID+1 ) 

IN  1 =IN+I2 
C3=VNI (IN  1 ) 

X=X+C3*XN 
Y=Y+C3*YN 
1010  ID=ID+2 

C INPUT  STRESSES,  STRAINS  AND  PWP 

DO  1020  1=1,3 
IS= (IG-1 ) *4+1 
IE=IS+INSE 
SIG(I)=VSE(IS) 

1020  EPS(I)=VSE(IE) 

IF(ISDE.GT.O)  PWP=VSE (IG+INSE*2 ) 

IF(M.GT.I)  GO  TO  1030 
IF(M.EQ.I)  GO  TO  1025 

WRITE ( MP , 2084 ) IG , X , Y , SIG ( 1 ) , SIG ( 2 ) , SIG ( 3 ) , PWP 

2084  FORMAT (IX, 15, 6E 12. 5) 

GO  TO  1040 

1025  WRITE(MP, 2085 ) IG , X, Y, SIG( 1 ) , SIG (2 ) , SIG (3 ) , PWP, EPS( 1 ) , EPS(2 ) , 
1 EPS(3) 

2085  FORMAT ( IX, 15, 6E 12. 5/30X, 3E 12. 5 ) 

GO  TO  1040 

C COMPUTE  THE  PRINCIPAL  STRESSES 

1030  TETA=ATAN2(DEUX*SIG(3) ,SIG(1 )-SIG(2) )*X05 
TETA=TETA*RADN 
C1=(SIG(1 )+SIG(2))*X05 
C2=(SIG( 1 )-SIG(2) )*X05 
TAUMAX=SQRT ( C2*C2+SIG ( 3 ) *SIG ( 3 ) ) 

SIG1=C1+TAUMAX 
SIG2=C1 -TAUMAX 

WRITE(MP, 2090 ) IG, X, Y, SIG( 1 ) ,SIG(2) ,SIG(3 ) , PWP, EPS( 1 ) , EPS (2 ) , 
1 EPS(3) ,SIG1 ,SIG2, TAUMAX, TETA 
2090  FORMAT ( 1 X, 15, 6E 12. 5/30X, 3E 12. 5/30X, 4E 12. 5 ) 

1040  I2=I2+3*INEL 
RETURN 
END 

SUBROUTINE  RDMH(MH, IEL , IPG, IMODEL , XSTART, HIST) 

C READ  HISTORY  DATA  FOR  NONLINEAR  MATERIAL 
IMPLICIT  REAL*8 ( A-H ,0-Z ) 
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DIMENSION  XSTARTC*) ,HIST(») 

IF(IMODEL.EQ.O)  RETURN 
IF( IMODEL.EQ. 1 ) RETURN 
IF(IMODEL.EQ.2)  RETURN 
IF ( IMODEL . EQ. 3)  RETURN 

IF ( IMODEL . EQ. 4 ) READ(MH, REC=IEL)  (XSTART(I ) , 1=1 f IPG) , 

1 (HIST (I ) ,1=1, IPG) 

IF ( IMODEL . EQ. 5 ) RETURN 

RETURN 

END 

SUBROUTINE  WRMH ( MH , IEL , IPG , IMODEL , XSTART , HIST ) 

C WRITE  HISTORY  DATA  FOR  NONLINEAR  MATERIAL 

IMPLICIT  REAL*8 (A-H ,0-Z ) 

DIMENSION  XSTARTC*) ,HIST(*) 

IF(IMODEL.EQ.O)  RETURN 
IFCIMODEL.EQ. 1 ) RETURN 
IFCIMODEL.EQ.2)  RETURN 
IFCIMODEL.EQ. 3)  RETURN 

IFCIMODEL.EQ. 4)  WRITE (MH , REC=IEL ) (XSTART (I ), 1=1 , IPG ) , 

1 (HISTCI ) , 1=1 , IPG)  • 

IFCIMODEL.EQ. 5)  RETURN 

RETURN 

END 

SUBROUTINE  UPCORE(VCORE,VDLE, IDLE) 

C CALCULATE  UPDATED  COORDINATES  FOR  UPDATED  LAGRANGIAN  FORMULATION 

IMPLICIT  REAL*8( A-H ,0-Z) 

DIMENSION  '/CORE  C * ) , VDLE  ( * ) 

DO  10  1=1, IDLE 

10  VCORE(I)=VCORE(I )+VDLE (I ) 

RETURN 

END 

SUBROUTINE  RADIUS (VCORE , VNI , R, INEL ) 

C CALCULATE  THE  RADIUS  AT  A G.P.  FOR  THE  AXISYMMETRIC  CASE 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

DIMENSION  VCORE C* ) , VNI ( * ) 

R=0 . DO 
ID=  1 

DO  10  1=1, INEL 
X=VCORE (ID) 

R=R+VNI(I )*X 
10  ID=ID+2 

RETURN 
END 

SUBROUTINE  WATTBLC VCORE , YWAT , IDLE , ISEQ) 

C FIND  THE  NEW  WATER  TABLE  LEVEL 

IMPLICIT  REAL*8 (A-H , 0-Z ) 
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DIMENSION  VCORE ( * ) 



IFCISEQ.EQ.8)  GO  TO  20 
DO  10  1=2, IDLE, 2 

IF(VCORE(I) .LT.YWAT)  YWAT=VCORE (I ) 

RETURN 

DO  30  1=2, IDLE, 2 

IF(VCORE(I) .GT.YWAT)  YWAT=VCORE(I) 

RETURN 
END 

SUBROUTINE  PWPS (VCORE , VNI , EPS , BKWA , ROWA , YWAT , PWP , ISDE , INEL ) 


TO  FIND  PORE  WATER  PRESSURE  FOR  SATURATED  DRAINED  OR 
SATURATED  UNDRAINED  CASE 


IMPLICIT  REAL#8 ( A-H ,0-Z ) 
DIMENSION  VCOREd) , VNI  ( * ) ,EPS ( * ) 

IF( ISDE. EQ. 2)  GO  TO  20 
C FIND  Y-COORDINATE 


Y=0. DO 
ID=2 

DO  10  1=1, INEL 
YN=VCORE (ID) 

Y=Y+VNI (I )*YN 
10  ID=ID+2 

C SATURATED  DRAINED  CASE 

PWP= (Y-YWAT ) *ROWA 
RETURN 

C SATURATED  UNDRAINED  CASE 

20  PWP=(EPS( 1 )+EPS (2 )+EPS (4 ) )*3KWA 

RETURN 
END 

SUBROUTINE  GAUSS (IPGKED, NDIM,VKPG, VCPG, IPG) 

C TO  FORM  ARRAYS  OF  COORDINATES  AND  WEIGHTS  AT  GAUSS  POINTS 

C (1,2  AND  3 DIMENSIONS)( 1 ,2,3  OR  4 G.P.  PER  DIMENSION) 

C INPUT 

C IPGKED  NUMBER  OF  POINTS  IN  KSI ,ETA,ZETA  DIRECTIONS 

C NDIM  NUMBER  OF  DIMENSIONS  (1,2  OR  3) 

C OUTPUT 

C VKPG  COORDINATES  OF  GAUSS  POINTS 

C VCPG  WEIGHTS  AT  GAUSS  POINTS 

C IPG  TOTAL  NUMBER  OF  GAUSS  POINTS 


IMPLICIT  REAL*8 (A-H,0-Z) 

DIMENSION  IPGKEDd)  , VKPG (*),  VCPG (*)  ,G(  1 0 ) ,P(  1 0 ),  INDIC(4  ) 

DATA  INDIC/1 ,2,4,7/ 

DATA  G/0.0D0, -.577 3502691 8 9626D0, . 577250269 1 89626 DO, 

1 -.774596669241 4 83DO,O.ODO, .774596669241483D0, 

2 -.861 13631 1594050D0,-. 33998 1043584860D0, 

3 . 33998 1043584860D0, .861  13631  1594050D0/ 

DATA  P/2.0D0, 1.0D0, 1.0D0, 

1 0. 55 5555 55 55 5555 6 DO, 0.888888883888889D0, 0.555555 555555556D0, 
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2 .34735484513745000, .652145154862550D0, 

3 . 6521 45 1 54862550D0 347354845 1 37450D0/ 

IIsIPGKEDd  ) 

IMINsINDIC(II) 

IMAXsIMIN+II-1 
IFCNDIM-2)  10,20,30 


C 1 DIMENSION 

10  IPG=0 

DO  15  I=IMIN, IMAX 

IPG=IPG+1 

VKPG(IPG)=G(I) 

15  VCPG(IPG)sP(I) 

RETURN 

C 2 DIMENSIONS 

20  II=IPGKED(2) 


JMINsINDIC(II) 
JMAXsJMIN+II-1 
IPG=0 
L=  1 

DO  25  I=IMIN , IMAX 
DO  25  J=JMIN, JMAX 
IPG=IPG+1 
VKPG(L)=G(I) 

VKPG (L+1  )=G(J ) 
L=L+2 


25  VCPG(IPG)=P(I)*P(J) 

RETURN 

C 3 DIMENSIONS 

30  II=IPGKED(2) 

JMINsINDIC(II) 

JMAX=JMIN+II-1 

II=IPGKED(3) 


KMINsINDIC(II) 

KMAXaKMIN+II-1 

IPG=0 

L=  1 

DO  35  I=IMIN , IMAX 
DO  35  J=JMIN , JMAX 
DO  35  K=KMIN , KM AX 
IPG=IPG+1 
VXPG(L)sG(I) 

VKPG (L+1 )=G( J ) 

VKPG(L+2)=G(K) 

L=L+3 

35  VCPG(IPG)=P(I)*P(J)*P(K) 

RETURN 

END 

SUBROUTINE  D02(VPREE , VDE , IKEL , IFEL ) 
0============================================================== 

C TO  FORM  STRESS-STRAIN  MATRIX  D (2  DIMENSINOAL  ELASTICITY) 

C IKEL  . EQ. 1 PLANE  STRESS 

C . EQ. 2 PLANE  STRAIN 

C . EQ. 3 AXISYMMETRIC 
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C IFEL  . EQ . 1 PLANE  STRAIN  (INTERFACE  ELEMENT) 

C VDE  MATRIX  D (FULL) 

IMPLICIT  REAL*8 (A-H 1 0-Z ) 

DIMENSION  VPREE (* ) , VDE (4 , 4 ) 

DATA  ZERO/O. DO/, UN/1 .DO/, DEUX/2. DO/ 

E=VPREE(1  ) 

V=VPREE(2) 

IF(IKEL.EQ. 1 ) A=ZERO 
IF(IKEL.GT.I)  A=UN 
C 1 =E*(UN-A*V )/ ( (UN+V)* (UN-V-A*V ) ) 

C2=C1*V/(UN-A*V) 

C3=E/( DEUX* (UN+V) ) 

VDE ( 1 , 1 )=C 1 
VDE( 1 , 2)=C2 
VDE( 1 , 3)=ZERO 
VDE(2, 1 )=C2 
VDE(2, 2)=C1 
VDE(2,3)=ZERO 
VDE(3 , 1 )=ZERO 
VDE (3 , 2)=ZER0 
VDE(3,3)=C3 

IF(IFEL.EQ.I)  VDE(3 , 3)  = VPREE(5  ) 

IF(IKEL.EQ. 1 ) C2=ZER0 

IFdKEL.EQ.  1 ) ClrZERO 

VDE( 1 ,4)=C2 

VDE(2,4)=C2 

VDE(3,4)=ZERO 

VDE(4 , 1 )=C2 

VDE(4, 2)=C2 

VDE(4, 3)=ZERO 

VDE(4,4)=C1 

RETURN 

END 

SUBROUTINE  DU2(VDE,BKWA) 

C TO  FIND  STRESS-STRAIN  MATRIX  D FOR  UNDRAINED  ELEMENT 
C = = = = = = = = = = = = = = = = = = = = = = r = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
IMPLICIT  REAL*8 (A-H , O-Z ) 

DIMENSION  VDE (4, 4) 

VDE( 1 , 1 )=VDE( 1 , 1 )+3KWA 
VDE( 1 , 2)=VDE( 1 , 2)+3KWA 
VDE( 1 , 4)=VDE( 1 , 4 )+3KWA 
VDE (2, 1 )=VDE(2, 1 )+BKWA 
VDE(2,2)=VDE(2,2)+3KWA 
VDE(2,4)  = VDE(2,4)+3K1NA 
VDE(4, 1 )=VDE(4, 1 )+3KWA 
VDE (4 , 2)=VDE(4 , 2)+3KWA 
VDE (4 , 4 )=VDE (4 , 4 )+3KWA 
RETURN 
END 

SUBROUTINE  JACOB ( VNI , VCORE , NDIM , INEL , VJ , VJ 1 , DET J ) 

C TO  EVALUATE  THE  JACOBIAN  MATRIX,  ITS  DETERMINANT  AND 
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C~ 


ITS  INVERSE  (1,2,3  DIMENSIONS) 

INPUT 

VNI  DERIVATIVES  OF  INTERPOLATION  FUNCTION  tf.R.T. 

KSI , ETA , DZETA 

VCORE  ELEMENT  NODAL  COORDINATES 

NDIM  NUMBER  OF  DIMENSIONS 

INEL  NUMBER  OF  NODES  PER  ELEMENT 

OUTPUT 

VJ  JACOBIAN  MATRIX 

VJ 1 INVERSE  OF  JACOBIAN  MATRIX 

DETJ  DETERMINANT  OF  JACOBIAN  MATRIX 


IMPLICIT  REAL*8 (A-H ,0-Z ) 

DIMENSION  VNKINEL,*)  ,VCORE(NDIM,»)  ,VJ(*)  ,VJ1  (*) 
DATA  ZERO/O. DO/, UN/1 .DO/ 


— FORM  THE  JACOBIAN  MATRIX 
J = 1 


DO  20  JJ= 1 , NDIM 
DO  20  11=1, NDIM 
C=ZERO 

DO  10  I J = 1 , INEL 

MO  C=C+VNI (I J , II )*VCORE ( J J , IJ ) 

VJ(J)=C 
20  J=J+1 

C 1,  2,  OR  3 DIMENSIONAL  INVERSION 

GO  TO  (40,50,60) , NDIM 
40  DETJ=VJ ( 1 ) 

IF(DETJ.EQ.ZERO)  RETURN 
VJ1 (1 )=UN/DETJ 
RETURN 

50  DETJ=VJ(1 )*VJ(4)-VJ(2)*VJ(3) 

IF(DETJ.EQ.ZERO)  RETURN 
VJ 1 ( 1 ) =VJ (4 )/DET J 
VJ 1 (2 )=-VJ (2 )/DETJ 
VJ1 (3)=-VJ(3)/DETJ 
VJ1 (4)=VJ(1 )/DETJ 
RETURN 

60  DETJ=VJ(1 )*(VJ (5 )*VJ(9)-VJ (3)*VJ(6 ) ) 

1 +VJ(4)*(VJ(8)*VJ(3)-VJ(2)*VJ(9)) 

2 +VJ(7)*(VJ(2)*VJ(6)-VJ(5)*VJ(3)) 
IF(DETJ.EQ.ZERO)  RETURN 

VJ1 (1 )=(VJ(5)*VJ(9)-VJ(6)*VJ(8) )/DET J 
VJ 1 (2)=(VJ(3)*VJ(8)-VJ(2)*VJ(9))/DETJ 
VJ1 (3)=(VJ(2)*VJ(6)-VJ(3)*VJ(5))/DETJ 
VJ1 (4)=(VJ(7)*VJ (6 )-VJ (4)*VJ(9))/DETJ 
VJ1(5)=(VJ(1)*VJ(9 )-VJ (7 )*VJ (3 ) )/DETJ 
VJ1 (6)=(VJ(4)*VJ(3)-VJ(6)*VJ(1 ))/DETJ 
VJ1 (7)=(VJ(4)*VJ(8  )-VJ (7)*VJ(5))/DETJ 
VJ1 (3)=(VJ(2)«VJ(7)-VJ(3)*VJ(1))/DETJ 
VJ1 (9 )=(VJ( 1 )*VJ(5)-VJ(4)*VJ(2))/DETJ 
RETURN 
END 

SUBROUTINE  DNIDX (VNI , VJ1 , NDIM, INEL , VNIX) 


o o 


270 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c= 


0 


10 

20 


c= 

C TO  FORM  LINEAR  STRAIN-DISPLACEMENT  MATRIX  B (2-D  ELASTICITY) 

C FOR  REGULAR  OR  UPDATED  LAGRANGIAN  FORMULATION 
C INPUT 

C VNIX  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  W.R.T.  X,Y,Z 

C INEL  NUMBER  OF  INTERPOLATION  FUNCTIONS 

C OUTPUT 

C VBE  MATRIX  B 

IMPLICIT  REAL*8 (A-H, O-Z) 

DIMENSION  VNIX (INEL,*) ,VNI(*) ,VBE(4,») 

DATA  ZERO/O. DO/ 

J = 1 

DO  10  1=1, INEL 
Cl = VNIX (I , 1 ) 

C2=VNIX(I ,2) 

VBE ( 1 , J)=C1 
VBE ( 1 , J+1 )=ZERO 
VBE (2 , J)=ZERO 
VBE(2, J+1 )=C2 
VBE (3 , J)=C2 
VBE(3, J+1 )=C1 
IF(IKEL.NE. 3)  GO  TO  10 
VBE (4 , J )=VNI (I )/R 
VBE(4, J+1 )=ZERO 
10  J=J+2 

RETURN 
END 


COMPUTE  THE  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WITH 
RESPECT  TO  X, Y, Z 
(1,2  OR  3 DIMENSIONS) 

INPUT 

VNI  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WITH  RESPECT 
TO  KSI.ETA.DZETA 
VJ 1 INVERSE  OF  THE  JACOBIAN 
NDIM  NUMBER  OF  DIMENSIONS  (1,2  OR  3) 

INEL  NUMBER  OF  INTERPOLATION  FUNCTIONS  (OR  NODES) 

OUTPUT 

VNIX  X , Y, Z DERIVATIVES  OF  INTERPOLATION  FUNCTIONS 


IMPLICIT  REAL*8 (A-H , O-Z ) 

DIMENSION  VNKINEL,*)  ,VJ1  (NDIM,*) , VNIX(INEL ,* ) 
DATA  ZERO/O. DO/ 


DO  20  1=1, NDIM 
DO  20  J = 1 , INEL 
C=ZERO 

DO  10  I J = 1 , NDIM 
C=C+VJ1 (I , IJ )*VNI ( J , IJ ) 

VNIX( J , I)=C 

RETURN 

END 

SUBROUTINE  B02(VNIX, VNI , INEL , IKEL , VBE , R ) 
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SUBROUTINE  C02(SIG, VCE,C) 

C FORM  CAUCHY  STRESS  MATRIX  C FOR  UPDATED  LAGRANGIAN  FORMULATION 


c 

INPUT 

SIG 

STRESSES  AT  G.P. 

c 

C 

COEFFICIENT 

c 

C = : 

OUTPUT 

VCE 

MATRIX  C 

IMPLICIT 

REAL*8 (A-H 

,0-Z) 

DIMENSION  SIG(4 ) , VCE (5 , 5 ) 

VCE (1,1 )=SIG( 1 ) *C 
VCE( 1 , 2)=SIG(3 )*C 
VCE( 1 , 3 )=0 . DO 
VCE(1 ,4)=0.D0 
VCE(1 ,5)=0.D0 
VCE(2, 1 )=SIG(3)*C 
VCE(2, 2)=SIG(2)*C 
VCE(2 , 3)=0 . DO 
VCE(2 , 4 )=0 . DO 
VCE (2, 5 )=0 . DO 
VCE (3 , 1 )=0 . DO 
VCE (3 , 2)=0 . DO 
VCE(3,3)=SIGd  )*C 
VCE(3,4)=SIG(3)*C 
VCE(3 i 5 )=0 . DO 
VCE (4 , 1 )=0 . DO 
VCE (4 , 2)=0 . DO 
VCE(4,3)=SIG(3)*C 
VCE(4, 4)=SIG(2)*C 
VCE (4 , 5 )=0 . DO 
VCE (5 , 1 )=0 . DO 
VCE (5 , 2)=0 . DO 
VCE(5,3)=O.DO 
VCE (5 , 4 )=0 . DO 
VCE(5,5)=SIG(4)*C 
RETURN 
END 

SUBROUTINE  BM2CVNIX, VNI , INEL , IKEL , VBE , R ) 

C = = = = r = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

C TO  FORM  NONLINEAR  STRAIN-DISPLACEMENT  TRANSFORMATION  MATRIX 

C FOR  UPDATED  LAGRANGIAN  FORMULATION 

C======================r ================ ========================r 

IMPLICIT  REAL*8 (A-H ,0-Z) 

DIMENSION  VNIXCINEL,*) ,VNI(») ,VBE(5,*) 

DATA  ZERO/O. DO/ 

J = 1 

DO  10  1=1, INEL 
Cl =VNIX(1 , 1 ) 

C2=VNIX(I ,2) 

VBE (1 , J)=C1 
VBE (1 , J+1 )=ZERO 
VBE (2 , J )=C2 
VBE(2, J+1 )=ZERO 
VBE(3, J)=ZERO 
VBE(3, J+1 )=C1 
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VBE (4 , J ) =ZERO 
VBE (4 , J+1 )=C2 
IF(IKEL.NE. 3)  GO  TO  10 
VBE (5 , J ) = VNI (I  )/R 
VBE(5, J+1 )=ZERO 
10  J=J+2 

RETURN 
END 

SUBROUTINE  BTDB( VKE , VBE , VDE , IDLE , IMATD , IKEL , NSYM) 

C TO  ADD  THE  PRODUCT  B(T).D.B  TO  VKE 

C INPUT 

C VKE 

C 

C VBE 

C VDE 

C IDLE 

C IMATD 

C OUTPUT 

C VKE 

IMPLICIT  REAL*8 (A-H ,0-Z) 

DIMENSION  VKE ( * ) ,V3E(IMATD,*) , VDE(IMATD , * ) , T(6 ) 

DATA  ZERO/O. DO/ 



I M= IMATD 

IFCIKEL.LT. 3)  IM=IM— 1 
IJ=1 

IMAX=IDLE 
DO  40  J=1,IDLE 
DO  20  11=1, IM 
C=ZERO 

DO  10  J 1 = 1 , IM 

10  C=C+VDE(I1,J1)*VBE(J1,J) 

20  T(I1)sC 

IF(NSYM.EQ.O)  IMAX=J 
DO  40  1=1 , IMAX 
C=ZERO 

DO  30  J 1 = 1 , IM 
30  C=C+VBE( J 1 , 1) *T ( J 1 ) 

VKE (I J )=VKE (I J )+C 
40  IJsIJ+1 

RETURN 
END 

SUBROUTINE  NIQ (VKPG , VNI ) 

C TO  EVALUATE  INTERPOLATION  FUNCTIONS  N AND  THEIR  DERIVATIVES 

C D(N)/D(KSI ) D(N)/D(ETA)  BY  EXPLICIT  FORMULATION 

C (QUADRILATERAL  ELEMENTS  WITH  4 OR  8 NODES) 

C INPUT 

C VKPG  COORDINATES  OF  INTEGRATION  POINTS 

C IPG  NUMBER  OF  INTEGRATION  POINTS 

C OUTPUT 

C VNI 


ELEMENT  MATRIX  NON  SYMMETRICAL  (NSYM.EQ. 1 ) 

SYMMETRICAL  (NSYM.EQ.O) 
MATRIX  3 OR  NONLINEAR  MATRIX  B (LAGRANGIAN) 
MATRIX  D OR  CAUCHY  STRESS  MATRIX  C (FULL) 
TOTAL  NUMBER  OF  D.O.F.  PER  ELEMENT 
DIMENSION  OF  MATRIX  D (MAX.  6) 


FUNCTIONS  N AND  THEIR  DERIVATIVES 
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IMPLICIT  REAL*8 (A-H , 0-Z ) 

COMMON/COOR/NDIM , NNT , NDLN , NDLT 

COMMON/RGDT/IEL , IKEL , ITPE , ITPE 1 , ISDE , IMODEL , IFEL , IDLE , ICE , INEL , 
1 IPG, ICODE, IMATD, INSE, INPE, IDLEO, INELO, IPGO, IRES 
COMMON/NUMB/ M , M 1 , ME , M3 , M4 , MR , MP , M7 , MS , M9 , MH 
DIMENSION  VKPG (* ) , VNI ( *) 

DATA  P25/.25D0/,P5/.5D0/,UN/1 . DO/ , DE/2. DO/ 

C LOOP  OVER  INTEGRATION  POINTS 

11=0 

11=0 

DO  10  IG=1 , IPG 
XG=VKPG(I 1+1 ) 


YG=VKPG(I 1+2) 

C 4 NODES  ELEMENTS 

IFQNEL.NE.4)  GO  TO  20 

C FUNCTION  N 

VNKII+1  )=P25*(UN-XG)* (UN-YG) 
VNI (II+2)=P25*(UN+XG)* (UN-YG) 
VNI (I 1+3 )=P25*(UN+XG)* (UN+YG) 
VNI (II+4 )=P25*(UN-XG)*(UN+YG) 
C KSI  DERIVATIVES 


VNI (II+5 )=-P25*( UN-YG) 
VNI (II+6)=P25 *( UN-YG) 
VNI (I 1+7 )=P25*(UN+YG) 
VNI (II+8 )=-P25  *(UN+YG) 

C ETA  DERIVATIVES 

VNI (I 1+9 )=-P25*(UN-XG) 
VNKII+1 0 )=-P25*(UN+XG) 
VNKII+1  1 )=P25*(UN+XG) 
VNKII+1 2 ) = P25*(UN-XG) 
11=11+12 
11=11+2 
GO  TO  10 


C 3 NODES  ELEMENTS 

20  IF(INEL.NE.8)  GO  TO  100 
C FUNCTION  N 


VNKII+1  )=P25*(UN-XG)«  (UN-YG)*  (-XG-YG-UN) 
VNKII+2  ) = P5*('JN-(XG*XG)  )* (UN-YG) 

VNI (II+3 )=P25*(UN+XG)*(UN-YG )* (XG-YG-UN ) 
VNI (I 1+4 )=P5*(UN+XG)*(UN-(YG*YG) ) 

VNI (II+5 )=P25*(UN+XG)* (UN+YG) * (XG+YG-UN ) 
VNI( 1 1+6 ) = P5  * ( UN- (XG*XG ) ) * ( UN+YG ) 

VNKII+7  )=P25*(UN-XG)*(  UN+YG  )*(YG-XG-UN) 
VNI (II+8 )=P5*(UN-XG)*(UN-(YG*YG) ) 

C KSI  DERIVATIVES 

11=11+8 

VNKII+1  ) = P25*((DE*XG)+YG)*  (UN-YG) 
VNI(II+2 )=-XG*( UN-YG) 

VNIClI+3 )=P25*( (DE*XG)-YG) * (UN-YG) 

VNI (II+4 )=P5*(UN-(YG*YG) ) 

VNKII+5  ) = P25*(  (DE*XG)+YG)* (UN+YG) 
VNKII+6  )=-XG*(  UN+YG) 
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VNI (I 1+7 )=-P25*( YG-(DE*XG) ) * ( UN+YG ) 

VNI  (II+8  )=-P5*('JN-(YG*YG) ) 

C ETA  DERIVATIVES 

11=11+3 

VMKII+1  )=P25*(UM-XG)»(XG+(DE*YG)) 

VNI (II+2 )=-P5* (UN-(XG*XG) ) 

VNI (II+3 )=-P25*(UN+XG)*(XG-(DE*YG) ) 

VNI  (II+4  )=-YG*('JN+XG) 

VNI  (II+5 )=P25*(UN+XG)*(XG+(DE*YG) ) 

VNI (II+6 )=P5*(UN-(XG*XG) ) 

VNI (I 1+7 )=P25*(UN-XG)*( (DE*YG)-XG) 

VNI ( I 1+8 )=-YG*(UN-XG) 

11=11+8 
11=11+2 
GO  TO  10 

100  WRITE (MP, 2000 ) 

2000  FORMAT ('  ***,  ERROR,  FUNCTION  N NOT  DEFINED  FOR  ELEMENT  TYPE') 
10  CONTINUE 
RETURN 
END 
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SUBROUTINE  VARMOD(VPREE,SIG, EPS, ATMP, NPRE ,MTYPE) 

C VARMOD  FINDS  THE  TANGENT  MODULUS  AND  POISSON  RATIO  ACCORDING  TO 

C A VARIABLE  MODULI  MODEL  BASED  ON  THE  HYPERBOLIC  EQUATION 

IMPLICIT  REAL*8 ( A-H ,0-Z ) 

DIMENSION  VPREEC*) ,SIG(») ,EPS(») 

C STATEMENT  FUNCTIONS 

El ( A,B ,C , D)=A*B* ( C/B) **D 

S(A, B,C, D)= (A-3) *( 1 . DO-DSIN (C) )/ (2. DO*(D*DCOS( C)+3*DSIN( C) ) ) 

C INITIALIZE  MODEL  PARAMETERS 

MTYPE=1 

PHIO=VPREE (NPRE+1 ) 

DPHI=VPREE (NPRE+2 ) 

COH=VPREE (NPRE+3 ) 


XK=VPREE (NPRE+4 ) 

EXPN=VPREE (NPRE+5 ) 

RF=VPREE(NPRE+6) 

XKB=VPREE (NPRE+7 ) 

EXPM=VPREE (NPRE+8 ) 

XXUR=VPREE (NPRE+9 ) 

C INITIALIZE  THE  TANGENT  MODULUS 

PI =4. D0*DATAN ( 1 . DO ) 

C OBTAIN  PRINCIPAL  STRESSES.  NOTE  CHANGE  OF  SIGN  CONVENTIONS 

C TENSION  - NEGATIVE,  COMPRESSION  - POSITIVE 

Cl =(-SIG( 1 )-SIG(2 ) )/2 . DO 
C2=(SIG(2)-SIG( 1 ) )/2. DO 
TAUMAX=DSQRT ( C2**2+SIG ( 3 ) **2 ) 

SIG1 =C1+TAUMAX 
SIG3=C 1-TAUMAX 

?HI=PHIO-DPHI*DLOG10 (SIG3/ATMP) 

PHI=PHI*PI/1 80 . DO 
SR=S (SIG1 , SIG3, PHI ,COH ) 

ET=EI (XK, ATMP, SIG3, EXPN ) * ( 1 . DO-RF*SR ) **2 


C INITIALIZE  THE  TAGENT  POISSON  RATIO 

BULK=EI (XKB , ATMP, SIG3, EXPM) 

VT=.5D0-ET1 /BULK/6. DO 
IFCVT.LT. .2D0)  VT= . 2D0 

C INCREMENT  THE  STRAIN  COMPONENTS.  CHANGE  OF  SIGN  CONVENTIONS 

DEPSX=-EPS( 1 )/20 . DO 
DEPSY=-EPS(2)/20. DO 
DEPSXY=EPS (3 )/20 . DO 

C ITERATE  20  TIMES  TO  OBTAIN  APPROXIMATE  ACTUAL  STRESSES 

DO  100  1=1,20 

D 1 1 =ET  * ( 1 . DO-VT ) / ( ( 1 . D0+ VT ) * ( 1 . DO-2 . DO  *VT ) ) 

D 1 2 =D 1 1 *VT/ ( 1 . DO-VT) 


D33=ET/(2.D0*(1. DO+VT) ) 
SIGXsSIGCl )+D11*DEPSX+D12*DEPSY 
SIGY=3IG(2)+D12*DEPSX+D1 1 *DEPSY 
SIGXY=SIG(3)+D33*DEPSXY 
C 1 = C-SIGX-SIGY)/2 . DO 
C2=(SIGY-SIGX)/2. DO 
TAUMAX=DSQRT(C2**2+SIGXY**2) 
SIG1 =C1+TAUMAX 
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SIG3=C1-TAUMAX 

— CHECK  IF  SOIL  IS  IN  TENSION 
IF(SIG1.LT.1.D-20. OR. SIG3.LT. 1.0-20)  GO  TO  30 
?HI=PHI0-DPHI*DL0G10 (SIG3/ATMP) 

PHI=PHI*PI/1 30 . DO 


SR=S (SIG1 , SIG3»  PHI f COH) 

C COMPUTE  THE  NEW  TANGENT  MODULUS 

ETsEICXK, ATMP,SIG3,EXPM)*(1 . DO-RF*SR ) * *2 
C COMPUTE  THE  NEW  TANGENT  POISSON  RATIO 


BULK=EI (XKB, ATMP, SIG3*  EXPM) 

VTs.5DO-ET1 /BULK/6. DO 
IF( VT. LT. . 2D0)  VT=.2D0 
MTYPE=2 
GO  TO  40 

C NEW  STRESSES  FOR  SOIL  IN  TENSION 

30  ET=VPREE( 1 ) 

VT=VPREE(2) 

D1 1 =ET*( 1 . DO-VT)/ ( ( 1 . DO+VT)* ( 1 . DO-2. DO*VT) ) 

D12=D1 1 *VT/( 1 . DO-VT) 

D33=ET/(2.D0*(1. DO+VT)) 

SIGX=SIG ( 1 )+D1 1 *DEPSX+D12*DEPSY 
SIGY=SIG(2)+D12*DEPSX+D1 1 *DEPSY 
SIGXY=SIG(3)+D33*DEPSXY 

C NEW  STRESSES  AFTER  THIS  ITERATION 

40  SIG( 1 )=SIGX 

SIG(2 )=SIGY 
SIG(3)=SIGXY 
100  CONTINUE 

SIG(1 )=-SIGX 

SIG(2)=-SIGY 

SIG(3)=SIGXY 

RETURN 

END 

SUBROUTINE  MC2D(VPREE , SIGO, SIG , EPS, NPRE , MTYPE ) 

C USE  ELASTIC-PERFECTLY  PLASTIC  MOHR-COULOMB  MODEL  TO  FIND 

C ACTUAL  STRESSES.  STRESSES  ARE  AXISYMMETRIC . INITIAL  STRESS  METHOD 

C MTYPE=1 (LINEAR  BEHAVIOR),  MTYPE=2 (PLASTIC  BEHAVIOR) 

IMPLICIT  REAL *8 (A-H,0-Z) 

DIMENSION  VPREE (* ) ,SIGO(») ,SIG(* ) , EPS ( *) , VDE(4 , 4 ) , VPL(4 , 4 ) , 

1 DPL(4 , 4 ) , SPL (4 ) 

PI =4 . DO*DATAN ( 1 . DO) 

C INITIALIZE  MODEL  PARAMETERS 

COH=VPREE (NPRE+1 ) 

PHI=VPREE(NPRE+2)*PI/180.D0 

PSI=VPREE(NPRE+3)*?I/180.D0 

C ELASTIC  TRIAL 

SlaSIGOd  ) 

S2=SIG0 (4 ) 

S3=SIG0(2) 

S4=SIG0(3) 

C FIND  THE  VALUE  OF  FUNCTION  F ACCORDING  TO  THE  ELASTIC  TRIAL 

CALL  INVAR (S1,S2, S3, S4, PRESS, R3J2.VLODE) 


o o 
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R00T3=DSQRT (3 . DO) 

SIN1=DSIN(PHI) 

COS1=DCOS(PHI) 

SIN2=DSIN(VLODE) 

COS2=DCOS (VLODE) 

FNEW=SIN1*PRESS+R3J2*(COS2/ROOT3-SIN2*SIN1/3.DO)-COH*COS1 
IF ( FNEW. LT. 0. DO ) GO  TO  100 

C FIND  THE  VALUE  OF  FUNCTION  F ACCORDING  TO  PREVIOUS  STRESSES 

S1=SIG(1 ) 

S2=SIG(4 ) 

S3=SIG(2) 

S4=SIG(3) 

CALL  INVARCS1 ,S2, S3, S4, PRESS, R3J2, VLODE) 

SI N2=DSIN( VLODE) 

C0S2=DC0S (VLODE) 

F=SIN1*PRESS+R3J2*(COS2/ROOT3-SIN2*SIN1/3.DO)-COH*COS1 


C OBTAIN  THE  STRESS-DEPENDENT  PLASTIC  MATRIX  PL 

CALL  D02(VPREE,VDE,3,0) 

C S1=SIG0(1) 

C S2=SIG0(4) 

C S3=SIG0(2) 

C S4=SIG0(3) 

CALL  FMPLMC(S1 , S2, S3, S4, VDE, VPL , PHI , PSI ) 
IF(F.GT.O.DO)  FAC=1 . DO 

C COMPUTE  THE  SCALING  FACTOR 

IF ( F . LE . 0 . DO ) FAC=F NEW/ ( FNEW-F ) 

C OBTAIN  ELASTIC-PLASTIC  MATRIX  DPL 

DO  20  1=1,4 
DO  20  J = 1 , 4 

20  DPL (I , J)=VDE(I , J)-FAC*VPL(I , J ) 

C COMPUTE  THE  ACTUAL  STRESSES 

CALL  MULT (DPL , EPS, SPL,4 , 4 , 1 ) 

DO  30  1=1,4 

30  SIG (I ) =SIG(I )+SPL(I ) 


MTYPE=2 
RETURN 
100  MTYPE= 1 

SIG(1 )=SIG0(1 ) 

SIG(2)=SIG0(2) 

SIG(3)=SIGO(3) 

SIG(4 )=SIGO (4 ) 

RETURN 

END 

SUBROUTINE  FMPLMC ( S 1 , S2 , S3 , S4 , VDE , VPL , PHI , PSI ) 

C TO  FORM  MATRIX  PL  FOR  2-D  MOHR-COULOMB  PERFECT  PLASTICITY 
C INPUT  SI , S2, S3 , S4, PHI , PSI  AND  MATRIX  VDE 

OUTPUT  MATRIX  VPL  (FULL) 


IMPLICIT  REAL*8 ( A-H ,0-Z ) 

DIMENSION  VDE ( 4 , 4 ) , VPL (4,4), DDQ ( 4 ) , DDF ( 4 ) , DQ ( 4 ) , DF ( 4 ) , DDQF (4,4) 


CALL  INVAR (SI, S2, S3, S4, PRESS, R3J2, THETA) 
3RD= (2. DO*S 1-S2-S3 )/3 . DO 
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3TD=(2.D0*S2-S3-S1)/3.D0 
SZD=(2.D0*S3-S1-32)/3.D0 
CALL  QF(THETA,PHI, R3J2,F1,F2,F3) 

CALL  QF(THETA,PSI,R3J2,Q1 ,Q2,Q3) 

CALL  QSFS (FI ,F2, F3 , SRD , SZD, S4 , STD , DF) 

CALL  QSFS (Q1 , Q2 , Q3 , SRD , SZD, S4 , STD, DQ ) 

CALL  MULT (VDE, DF , DDF ,4,4,1) 

CALL  MULT(VDE,DQ,DDQ,4,4, 1) 

VAL=0 . DO 
DO  10  1=1,4 

10  VAL=VAL+DDF ( I ) *DQ ( I ) 

DO  20  1=1,4 
DO  20  J=1 , 4 

DDQF(I , J )=DDQ(I )*DF ( J ) 

20  DDQFCI, J)=DDQF(I,J)/VAL 

CALL  MULT (DDQF, VDE , VPL ,4,4,4) 

RETURN 

END 

SUBROUTINE  INVAR (S 1 , S2, S3, S4, PRESS , R3J2 , VLODE) 

C COMPUTE  INVARIANTS  OF  THE  STRESS  TENSOR 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

R3J2=DSQRT ( ,5D0*( (S 1-S2) **2+(S2-S3 ) **2+(S3-S 1 ) **2+6 . D0*S4#*2 ) ) 

SRD= (2. DO*S 1-S2-S3 )/3 • DO 

STD= (2 . D0*S2-S3-S 1 )/3 . DO 

SZD=(2. D0*S3-S 1-S2)/3 . DO 

PRESS=(S1+S2+S3)/3.D0 

SJ3=SRD*STD*SZD-STD*S4*S4 

IFCR3J2.NE.O.DO)  GO  TO  10 

VLODE=999.999DO 

GO  TO  20 

10  VLODE=-13.5DO*SJ3/(R3J2*R3J2*R3J2) 

PI =4 . DO*DATAN ( 1 . DO) 

IF( VLODE. GE. 1. DO)  GO  TO  30 
IF ( VLODE. LE.-1 . DO)  GO  TO  40 
ADJ  =DSQRT ( 1 . DO-VLODE*VLODE ) 

VLODE=-DATAN (VLODE/ ADJ )/3 . DO 
GO  TO  20 

30  VL0DE=PI/6 . DO 

GO  TO  20 

40  VL0DE=-PI/6 . DO 

20  RETURN 

END 

SUBROUTINE  QF(THETA, RAD, R3 J2 , X, Y, Z) 

C TO  OBTAIN  (1)  DERIVATIVES  OF  M-C  YIELD  FUNCTION  WRT  I1.J2.J3 
C (2)  DERIVATIVES  OF  M-C  PLASTIC  POTENTIAL  WRT  I1.J2.J3 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

ROOT3=DSQRT(3.DO) 

IF (DABS (THETA) ,LE. .52342400)  GO  TO  10 
X=DSIN(RAD) 

Y=.25D0/R3J2*(3.D0-DSIN(RAD)) 
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Z=0 . DO 
GO  TO  20 
X=DSIM (RAD) 

Y=DCOS (THETA ) *R00T3* . 5D0/R3J2*( ( 1 . DO+DSIN (THETA )/DCOS (THETA ) 
1*DSIN(3.DO*THETA)/DCOS(3.DO*THETA))+DSIN(RAD)/ROOT3 
2*(DSIN(3. D0*THETA)/DC0S(3 . DO*THETA )-DSIN( THETA )/DCOS (THETA ) ) ) 
Z= ( ROOT 3*DSIN( THETA )+DSIN(R AD )*DCOS (THETA) ) *1 . 5D0 
1/(R3J2*R3J2*DCOS(3.DO*THETA)) 

RETURN 

END 

SUBROUTINE  QSFS( A,B ,C , R , Z , RZ , T, D) 


USE  THE  CHAIN  RULE  TO  OBTAIN 

(1)  DERIVATIVES  OF  M-C  FAILURE  FUNCTION  WRT  STRESS  COMPONENTS 

(2)  DERIVATIVES  OF  M-C  PLASTIC  POTENTIAL  WRT  STRESS  COMPONENTS 


IMPLICIT  REAL *8 (A-H ,0-Z) 

DIMENSION  D(4 ) 

D(1 )=A/3.D0+B«R+C/3.D0«(R*R+2.D0*Z*T+RZ*RZ) 

D(2 )=A/3 . D0+3*Z+C/3 . D0*( Z*Z+2. DO*R*T+RZ*RZ) 
D(3)=2.D0*B*RZ-2.D0*C*RZ*T 

D(4 )=A/3 . D0+3*T+C/3 . D0*(2. D0*Z*R+T*T-2 . D0*RZ*RZ) 

RETURN 

END 

SUBROUTINE  MULT (A,B,CfN1,N2,N3) 

C MULTIPLY  AN  N1XN2  MATRIX  A TIMES  AN  N2XN3  MATRIX  B TO  OBTAIN 
C AN  N 1 XN 3 MATRIX  C 

IMPLICIT  REAL*8 (A-H,0-Z) 

DIMENSION  A(N1,N2),B(N2,N3),C(N1,N3) 

DO  10  I = 1 , N1 
DO  10  J = 1,N3 
C(I,J)=0.0 
DO  10  K = 1 , N2 

10  C(I,J)=C(I,J)+A(I,K)*B(K,J) 

RETURN 

END 

SUBROUTINE  DP2D ( VPREE , SIG , EPS , NPRE , MTYPE ) 

C========================r======================================== 

C USE  DRUCKER-PRAGER  MODEL  TO  FIND  ACTUAL  STRESSES  AT  A G.P. 

C STRESSES  ARE  AXISYMMETRIC 

C MTYPE=0 (TENSION  CUTOFF) ,MTYPE=1 (ELASTIC) ,MTYPE=2(FAILURE) 

C = = = = = = = = = = = = = = = = = = = = = = = = = = r = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

DIMENSION  VPREE(») ,SIG(*) , EPS(») 

DATA  CONV/.OOIDO/ 

C FUNCTION  STATEMENT  FOR  EXPONENTIAL  WITH  SMALL  ARGUMENT 

C FAILURE  ENVELOPE  FUNCTION  FOR  SJ2 

F(SJ1 )=CB-CA*SJ1 

C INITIALIZE  MATERIAL  PROPERTIES 

PI=4 . DO*DATAN ( 1 . DO) 

E=VPREE ( 1 ) 

V =VPREE (2 ) 
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3ULK=E/(3.D0-6.D0*V) 
SHEAR=E/(2.D0+2.D0*V) 
PHI=VPREE(NPR£+1  ) 
CIN=VPREE(NPRE+2) 

TANPHI=DTAN (PI*PHI/1 80. DO) 
X=DSQRT (9 . DO+1 2. D0*TANPHI**2 ) 
CA=TANPHI/X 
CB=3 • DO*CIN/X 
TCUT=VPREE (NPRE+3 ) 

IF ( CA.EQ.O. DO)  FCUT=1 . 0D10 
IF(CA.EQ.O.DO)  GO  TO  15 
FCUT=CB/CA 


C COMPUTE  VOLUMETRIC  STRAIN  INCREMENT 

15  DEV=EPS( 1 )+EPS (4 )+EPS (2 ) 

DEV03=DEV/3.D0 
DEXX=EPS(1 )-DEV03 
DEYY=EPS(4)-DEV03 

C COMPUTE  INITIAL  MEAN  NORMAL  STRESS,  STRESS  DEVIATION  TENSOR, 

C AND  STRESS  INVARIANTS.  NOTE  THAT  SZZ=-(SXX+SYY) 

PRESS=(SIG(1)+SIG(4)+SIG(2))/3.D0 
SXX=SIG(1 )-PRESS 
SYY=SIG(4 )-PRESS 


SXZ=SIG(3) 

S J1 1=3 . DO*PRESS 

S J2I=DSQRT(SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ) 


C ELASTIC  MATERIAL  PROPERTIES 

THREEK=3.D0*BULK 
TWOG=2.DO*SHEAR 
C ELASTIC  TRIAL 


S J1 =THREEK*DEV+S J 1 I 
SXX=SXX+TWOG*DEXX 
SYY =S YY+TWOG  *D  EYY 
SXZ=SXZ+SHEAR*EPS(3) 

RATIOsl.O 
MTYPE= 1 

C TENSILE  CODING 

TENCUT=DMIN1 (FCUT.TCUT) 

IFCSJ1.LT. TENCUT)  GO  TO  100 

SJ1=TENCUT 

MTYPE=0 

RATIO=0 . DO 

GO  TO  200 

C CKECK  FAILURE  ENVELOPE 

100  CONTINUE 

S J2=DSQRT (SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ ) 
FJIsF(SJI) 

FF=SJ2-FJ1 

IF(FF.LT.O.DO)  GO  TO  200 

C YIELD  SURFACE  CALCULATION 

MTYPE=2 

DFDJ 1 =(F(SJ1 +CONV*S J2 )-F  J1 )/(C0NV*SJ2) 
DLAMD=FF/ ( 3 . DO*THREEX*DFDJ 1 **2+. 5D0*TW0G ) 
DEVP=-3 . DO*DFDJ 1 *DLAMD 
SJ1E=SJ1 
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SJ1=SJ1-THREEK*DEVP 
RATI0=F(SJ1 )/SJ2 
200  CONTINUE 

C COMPUTE  ACTUAL  STRESSES 

SXX=SXX*RATIO 

SYY=SYY#RATIO 

SXZsSXZ*RATIO 

PRESS=SJ1/3.D0 

SIG(1 )=SXX+PRESS 

SIG(4 )=SYY+PRESS 

SIG(2)=PRESS-SXX-SYY 

SIG(3)=SXZ 

RETURN 

END 

SUBROUTINE  CAPI (VPREE , NPRE , IEL ,MS, MH ) 

C DEFINE  THE  INITIAL  POSITION  OF  THE  CAP  FOR  EACH  GAUSS  POINT 

IMPLICIT  REAL*8 (A-H,0-Z) 

DIMENSION  VPREE ( * ) , VSE (8 1 ) ,SIG(4 ) ,XSTART(9) 

DATA  IPG/9/, INSE/36/ 

C INITIALIZE  SOME  MODEL  PARAMETERS 

AA=VPREE (NPRE+1 ) 

AB=VPREE (NPRE+2 ) 

AC=VPREE (NPRE+3 ) 

TH ET A= VPREE (NPRE+4 ) 

CR=VPREE (NPRE+6 ) 


C READ  ELEMENT  STRESS  DATA 

READ(MS, REC=IEL)  (VSE(I) , 1=1 , INSE) 

DO  60  IG=1,IPG 

C MOTE  CHANGE  OF  SIGN  CONVENTION  (TENSION-NEGATIVE) 

SIG(1 )=-VSE(IG*4-3) 

SIG(2 )=-VSE (IG#4-2 ) 

SIG(3)=VSE(IG#4-1 ) 

SIG(4 )=-VSE(IG*4 ) 

C COMPUTE  INITIAL  SJ1  AND  SJ2 

PRESS=(SIG(1 )+SIG(2)+SIG(4))/3.D0 


SXX=SIG( 1 )-PRESS 
SYY=SIG(4)-PRESS 
SXZ=SIG(3) 

SJ1 I=3.D0*PRESS 

S J2I=DSQRT (SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ) 
X=0 . ODO 

C FIND  INITIAL  X BY  NEWTON’S  METHOD 

DO  10  1=1,30 

F =X+CR* ( AA+THETA*X-AC*DEXP (-AB*X ) )-S J 1 1 

DF=1.0D0+CR*THETA+CR*AC*AB*DEXP(-AB*X) 

X=X-F/DF 

IF ( DABS (F) . LT. 1 . D-1 0 ) GO  TO  20 
10  CONTINUE 

20  IF( SJ2I . EQ. 0. DO ) GO  TO  50 

C ITERATE  BY  TRIAL  AND  ERROR 

DX=X-SJ1I 

K=1 
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DO  40  N=1 ,50 
K=-K 

DX=-0.5D0*DX 
DO  30  M= 1,2 
X=X+DX 

B=AA+THETA*X-AC#DEXP(-AB*X ) 

VR= (S J1 I-X )*#2+CR*CR*S J2I *S J2I 

VL=CR*CR*B#B 

VF  =VR-VL 

IF(DABS(VF) .LT. 1.D-10)  GO  TO  50 
IFCK.EQ.-1 .AND.VF.LT. 0.0D0)  GO  TO  40 
IFCX.EQ. 1 .AND.VF.GT.O.ODO)  GO  TO  40 
30  CONTINUE 

40  CONTINUE 

50  XSTART(IG)=-X 

60  CONTINUE 

CALL  WRMH ( MH , IEL , IPG , 4 , XST ART , XSTART ) 

RETURN 

END 

SUBROUTINE  CAP2D ( VPREE , SIGO , SIG , EPS , ASTART , EL, NPRE, MTYPE ) 

C USE  SANDLER  CAP  MODEL  TO  FIND  THE  ACTUAL  STRESSES  AT  A G.P. 

C STRESSES  ARE  AXISYMMETRIC . GEOP=GEOSTATIC  PRESSURE 
C MTYPEsO (TENSION  CUTOFF),  =1 (ELASTIC),  =2(FAILURE),  =3(CAP  ACTION) 

C ITsITERATIONS  FOR  CAP,  N0C0N=1  INDICATES  MAX  ITERATIONS  (NIT) 


IMPLICIT  REAL*8 (A-H.O-Z) 

DIMENSION  VPREE(*) ,SIGO(*) ,SIG(*) ,EPS(») 

DATA  CONV/ . 00001  DO/ , NIT/1 00/ , LTYPE/1 / 

C FUNCTION  STATEMENT  FOR  EXPONENTIAL  WITH  SMALL  ARGUMENT 

C FAILURE  ENVELOPE  FUNCTION  STATEMENT  FOR  SJ2 

F(SJ1 )=CA+THETA*SJ1-CC*DEXP(-CB*SJ1 ) 

C CAP  FUNCTION  STATEMENTS  (CAPL=BIGL(EL) ,XL=X(SL) ) 


BIGL(EL)sDMAX1 (ASTART, EL) 

R(CAPL)=CR+0. DO*CAPL 
X (EL )=DMAX1 (0 . DO, EL+R (3IGL (EL ) ) *F( EL) ) 

E VP (XL )=CW* ( 1 . DO-DEXP (-CD*XL ) ) 

SJ2C(SJ1 , XL ,CAPL)=DSQRT ( (XL-CAPL)**2-(SJ1-CAPL)**2 )/R(CAPL) 


C ELASTIC  MODULI  FUNCTIONS  (EV  IS  CURRENT  VALUE  OF  EVP(XL)) 

BM0D(SJ1 , EV)=BULK+0. D0*SJ1+0. DO*EV 
SM0D(SJ2, EV)=SHEAR+0. D0*SJ2+0.D0*EV 
C INITIALIZE  MODEL  PARAMETERS 


E=VPREE ( 1 ) 

V =VPREE (2 ) 

BULK=E/ ( 3 . DO— 6 . DO*V ) 
SHEAR=E/ (2 . DO+2 . DO*V ) 
CA= VPREE (NPRE+1 ) 
C3=VPREE (NPRE+2 ) 
CC=VPREE (NPRE+3 ) 
THETA=VPREE (NPRE+4 ) 
CD=VPREE(NPRE+5) 

CR = VPREE (NPRE+6 ) 

CW= VPREE (NPRE+7 ) 
TCUT=VPREE (NPRE+3 ) 
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FCUT=DLOG ( CA/CC )/CB 
C FCUT=0 . DO 

C CHANGE  OF  SIGN  CONVENTION  (TENSION-NEGATIVE) 


SIG( 1 )=-SIG( 1 ) 

SIG(2)=-SIG(2) 

SIGC4 )=-SIG(4 ) 

SIGO(1 )=-SIGO(1 ) 

SIG0(2)=-SIG0(2) 

SIG0(4)=-SIG0(4) 

EPS(1 )=-EPS(1 ) 

EPS(2)=-EPS(2) 

EPS(4 )=-EPS(4 ) 

ASTART=-ASTART 

EL=-EL 


C COMPUTE  VOLUMETRIC  STRAIN  INCREMENT  AND 

C STRAIN  DEVIATION  INCREMENT  TENSOR 

DEV=EPS(1 )+EPS(4)+EPS(2) 

DEV03=DEV/3.D0 

DEXX=EPS(1)-DEV03 

DEYY=EPS(4)-DEV03 

C COMPUTE  INITIAL  MEAN  NORMAL  STRESS,  STRESS  DEVIATION  TENSOR, 

C AND  STRESS  INVARIANTS.  NOTE  THAT  SZZ=-(SXX+SYY) 

PRESS=(SIG(1)+3IG(4)+3IG(2))/3.D0 
SXX=SIG( 1 )-?RESS 
SYY=SIG(4 )-PRESS 
SXZ=SIG(3) 


S J1 1=3 . DO*PRESS 

S J2I=DSQRT(SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ) 
CAPL=BIGL(EL) 

XL=X(EL) 

EVPI=EVP(XL) 


C ELASTIC  MATERIAL  PROPERTIES 

THREEK=3 . DO*BMOD(S J 1 I , EVPI ) 
TW0G=2. D0*SM0D(3 J2I , EVPI ) 

C ELASTIC  TRIAL 


S J1 =THREEK*DEV+S J 1 I 
S XX  =S  XX  +T  WOG  * D E XX 
SYY=SYY+TWOG*DEYY 
SXZ=SXZ+TWOG*EPS(3)/2.DO 
RATIO=1 .DO 
MTYPE= 1 

C TENSILE  CODING  - GEOP=GRAVITY  STRESS 

TENCUT=DMIN1 (FCUT,TCUT) 

IF(SJ1 .GT.TENCUT)  GO  TO  20 

SJ1=TENCUT 

MTYPE=0 

IF(LTYPE.EQ.2.0R.EL.LE.ASTART)  GO  TO  110 

C TENSION  DILANTANCY  CODING 

ELL=DMAX1 (ASTART, EL+CONV*F(EL) ) 
XLL=X(ELL) 

DENOM=EVP (XLL)-EVPI 

IF ( DENOM . GT . 0 . DO ) GO  TO  10 

EL=ASTART 

GO  TO  110 
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10  DEVP  =DEV— (S J 1 — S J II) /THREEK 

EL=EL+DEVP*( ELL-EL )/DENOM 
EL=DMIN 1 (AST ART , EL ) 

GO  TO  110 

C CHECK  FAILURE  ENVELOPE 

20  CONTINUE 

SJ2=DSQRT(SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ) 

IF ( S J 1 .GT.CAPL)  GO  TO  50 
TMISES=S J2C( CAPL , XL , CAPL) 

FJ1 =F(SJ1 ) 

FF=SJ2-DMIN1 (FJ1 ,TMISES) 

IF(FF.LT.O.DO)  GO  TO  110 

C FAILURE  SURFACE  CALCULATION 

MTYPE=2 
DFDJ 1 =0 . DO 

IF(FJ1 .LT.TMISES)  DFDJ  1 =(F(SJ1+C0NV*SJ2)-FJ1 )/(C0NV*SJ2) 
DLAMD=FF/ ( 3 . D0*THREEK*DFDJ 1 **2+ . 5D0*TW0G ) 

DEVPz— 3 . DO*DFDJ 1 *DLAMD 
S J1 E=S J 1 

S J 1 =S J 1-THREEK*DEVP 


C DILATANCY  AND  CORNER  CODING 

IF(LTYPE. EQ. 1 .AND.EL.GT. ASTART)  GO  TO  30 
S J1 =DMIN 1 (SJ 1 , CAPL) 

GO  TO  40 
30  CONTINUE 


ELL=DMIN1 (SJ1E, EL+C0NV*SJ2) 

XLL=X(ELL) 

DENOM=EVP (XLL)-EVPI 

IF ( DENOM .GT. 0. DO)  GO  TO  35 

S J1  =S  J 1 E 

EL=DMAX1 (ASTART, SJ1 ) 

GO  TO  40 

35  DILAT= (ELL-EL) /DENOM 

ELINT=EL 

EL=DMAX1 (ASTART, ELINT+DEVP*DILAT) 

IF(S J1 . LE. BIGL(EL) ) GO  TO  40 
S J 1 =(DILAT*SJ1 E+THREEK*ELINT)/ (DILAT+THREEK) 

ELsDMAXI (ASTART, SJ1 ) 

40  CONTINUE 

FJ1 =F(SJ1 ) 

RATIO=DMIN1 (FJ1 , TMISES)/SJ2 
GO  TO  110 

C CAP  CALCULATION 

50  CONTINUE 

IF(SJI.GT.XL)  GO  TO  60 
IF(SJ2.LE.SJ2C(SJ1 , XL, CAPL))  GO  TO  110 
60  CONTINUE 

SJ1E=SJ1 
SJ2E=SJ2 
ELL=EL 
ELR=SJ1E 

IF(SJ1 E.GE.XL)  FL= ( EL-S J 1 E ) / ( EL-XL ) 

IF(SJIE.LT.XL)  FL=2 . DO*S J2E/ (3 J2E+S J2C(S J 1 E ,XL ,CAPL) )-1 . DO 
XR=X(ELR) 
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S J 1 R =S  J 1 E-THREEK*(EVP (XR)-EVPI ) 

FR= (XR-SJ 1 R )/ (ELR-XR) 

COMP=CONV*F( ( FL*XR-FR*XL ) / ( FL-FR ) ) 

IF(DABS(SJ1 )+SJ2. LT.COPM)  GO  TO  110 

MTYPE=3 

FOLD=0 . DO 

DO  90  IT = 1 , NIT 

EL=(FL*ELR-FR*ELL)/ (FL-FR) 

XL=X (EL ) 

DEVP=EVP (XL )-EVPI 

SJ1=SJ1E-THREEK*DEVP 

CAPL=BIGL(EL) 

IF(SJI.GE.XL)  FC= (EL-SJ1 )/(EL-XL) 

IF(SJI.LE.CAPL)  FC=(XL-SJ1 )/(CAPL-XL) 

IF(SJ1 .GE.XL.0R.SJ1 .LE.CAPL)  GO  TO  70 
SJ2=SJ2C(SJ1 ,XL,CAPL) 

DELJ 1 =CONV*(XL-S J1 ) 

DESP=0 . DO 
IF(DELJI)  65,66,65 

65  DESP= (DEVP/6 . DO )*(DELJ 1 / (S J2-S J2C(S J 1 +DELJ 1 , XL , CAPL) ) ) 

66  CONTINUE 

S J2TRY=S J2+TW0G*DESP 

FC= (S J2E-SJ2TRY)/ (S J2E+S J2TRY) 

IF(DABS(SJ2E-SJ2TRY) .LE. COMP)  GO  TO  100 
IF( FC .GT. 0. DO. AND . (SJ1-CAPL) . LE. DELJ 1 ) GO  TO  100 
70  IF ( FC.GT. 0. DO ) GO  TO  80 

ELR=EL 
FR=FC 

IF(FOLD.LT.O.DO)  FL=.5D0*FL 
GO  TO  90 
80  CONTINUE 

ELL=EL 
FL=FC 

IF( FOLD.GT.O. DO)  FR=.5D0*FR 
90  FOLDrFC 

N0C0N=1 

S J 1 =DMIN1 (3 J 1 , XL ) 

IF(SJ1 . LT. BIGL(ELR ) ) SJ1=CAPL 
SJ2=DMIN1(SJ2E,SJ2C(SJ1 , XL, CAPL)) 

100  RATI0=0 . DO 

IF(SJ2E.NE.0.D0)  RATIO=S J2/SJ2E 
110  CONTINUE 

SXX=SXX*RATIO 
SYY=SYY*RATIO 
SXZ=SXZ*RATIO 
PRESS=SJ1/3.D0 
SIG(1 )=-(SXX+PRESS) 

SIG(4 )=-(SYY+PRESS) 

SIG(2)=-(PRESS-SXX-SYY) 

SIG(3)=SXZ 
EPS(1 )=-EPS(1 ) 

EPS(2)=-EPS(2) 

EPS  d )=-EPS (4 ) 

ASTART  =-ASTART 
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EL=-EL 

RETURN 

END 

SUBROUTINE  VSHEAR (VPREE , VCORE , SIG , EPS, ROWA , ATMP, NPRE , MTYPE ) 

C VSHEAR  FINDS  THE  TANGENT  SHEAR  MODULUS  ACCORDING  TO 
C A VARIABLE  MODULI  MODEL  BASED  ON  THE  HYPERBOLIC  EQUATION 

IMPLICIT  REAL*8 ( A-H ,0-Z ) 

DIMENSION  VPREE (*) , VCOREC*) , SIG(*) ,EPS(*) 

?I=4.D0*DATAN(1 .DO) 

MTYPEsI 

C INITIALIZE  MODEL  PARAMETERS 

E=VPREE ( 1 ) 

V =VPREE (2 ) 

G=VPREE(3) 

PHI=VPREE (NPRE+1 )*PI/180.D0 
COH=VPREE (NPRE+2 ) 

XK=VPREE (NPRE+3 ) 

EXPN= VPREE (NPRE+4 ) 

RF=VPREE(NPRE+5) 

C FIND  THE  NORMAL  STRESS  ANGLE  WITH  RESPECT  TO  X-AXIS 

DX13=VCORE(5)-VCORE(1 ) 

DY1 3=VCORE (6 )-VCORE (2 ) 

DL 13=DSQRT(DX1 3**2+DY1 3**2 ) 

DX17=VCORE ( 1 3 ) -VCORE ( 1 ) 

DY17=VCORE ( 1 4 )-VCORE (2 ) 

DL17=DSQRT(DX17**2+DY17**2) 

IFCDL13.LT.DL17)  COS=DX13/DL13 
IFCDL13.LT.DL17)  SIN=DY1 3/DL13 
IFCDL13.GT.DL17)  COS=DX17/DL17 
IFCDL13.GT.DL17)  SIN=DY17/DL 17 


C INCREMENT  THE  STRAIN  COMPONENTS 

20  DEPSX=EPS( 1 )/20. DO 

DEPSY=EPS(2)/20. DO 
DEPSXY=EPS(3 )/20 . DO 

D 1 1 =E  * ( 1 . DO-V ) / ( ( 1 . DO+V ) * ( 1 . DO-2 . D0*V ) ) 

D 1 2 =D 1 1 *V/ ( 1 . DO-V ) 

C ITERATE  20  TIMES  TO  OBTAIN  APPROXIMATE  ACTUAL  STRESSES 

DO  100  1=1,20 
D33=G 

C COMPUTE  THE  NORMAL  STRESSES.  NOTE  CHANGE  OF  SIGN 


SN=SIG ( 1 ) *C0S*C0S+SIG(2 ) *SIN*SIN+2. DO*SIN*COS 
SS=SIG(3)*( COS * COS-SI N*SIN )— (SIG  C 1 )— SIG(2)) *SIN*COS 
SS=DABS(SS) 

IFCSN.LT. 1.D-30)  GO  TO  30 

C COMPUTE  THE  TAGENT  MODULUS 

FACTOR= 1 . D0-RF*SS/ ( COH+SN*DTAN (PHI ) ) 

IFCFACTOR.LT. 1.D-10)  GO  TO  30 
D33=XX*ROWA*(SN/ATMP)**EXPN*FACTOR*FACTOR 
IF ( D33 . LE. 0. DO)  GO  TO  30 
MTYPE=2 

SIGC1 )=SIG(1 )+D11*DEPSX+D12*DEPSY 
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SIG ( 2 ) =5IG(2 )+D1 2*DEPSX+D 1 1 *DEPSY 
SIG(3  ) = SIG(3 )+D33*DEPSXY 
100  CONTINUE 
RETURN 
END 

SUBROUTINE  FVM2D(VPREE, SIG , VDE , ATMP, IKEL , NPRE) 

C FVM2D  FINDS  THE  TANGENT  STRESS-STRAIN  MATRIX  ACCORDING  TO 

C A VARIABLE  MODULUS  MODEL  BASED  ON  THE  HYPERBOLIC  EQUATION 

IMPLICIT  REAL*8 (A-H,0-Z) 

DIMENSION  VPREE (* ) ,SIG(4 ) , VDE (4 , 4 ) 



c STATEMENT  FUNCTIONS 

EI(A,B,C,D)=A*B*(C/B)**D 

S( A,B, C , D)= ( A-B) *( 1 . DO-DSIN(C) )/ (2. DO*(D*DCOS( C)+3*DSIN ( C) ) ) 

C INITIALIZE  MODEL  PARAMETERS 

PHI 0= VPREE (NPRE+1 ) 

DPHI=VPREE (NPRE+2 ) 

COH=VPREE (NPRE+3 ) 

XK= VPREE (NPRE+4 ) 

EXPN=VPREE(NPRE+5 ) 

RF =VPREE (NPRE+6 ) 

XXB=VPREE (NPRE+7 ) 

EXPM=VPREE (NPRE+8 ) 

XKUR=VPREE (NPRE+9 ) 


C OBTAIN  PRINCIPAL  STRESSES.  NOTE  CHANGE  OF  SIGN  CONVENTIONS 

C TENSION  - NEGATIVE,  COMPRESSION  - POSITIVE 


PI =4 . DO*DATAN ( 1 . DO ) 

Cl =(-SIG( 1 )-SIG(2 ) )/2 . DO 
C2= (SIG(2 )-SIG ( 1 ) )/2 . DO 
TAUMAX=DSQRT(C2**2+SIG(3)**2) 

SIG1=C1+TAUMAX 
SIG3=C 1-TAUMAX 

IF( SIG 1 . LT. 1 . D-20 . OR .SIG3. LT. 1 . D-20 ) GO  TO  10 
PHI=PHIO-DPHI*DLOG 10 (SIG3/ATMP) 

PHI=PHI*PI/1 80. DO 
SR=S(SIG1 ,SIG3,PHI,COH) 

ET=EI (XK , ATMP, SIG3, EXPN)* ( 1 . D0-RF*SR )**2 
BULK=EI(XKB,ATMP,SIG3,EXPM) 

VT=.5D0-ET/ BULK/6. DO 
IFCVT.LT. .2D0)  VT= . 2D0 
VPREEC1 )=ET 
VPREE(2)=VT 

10  CALL  D02CVPREE, VDE, IKEL, 0) 

RETURN 

END 

SUBROUTINE  FMC2D  (VPREE, SIG, VDE, IKEL, NPRE, MTYPE) 

C FMC2D  YIELDS  THE  2-D  ELASTO-PLASTIC  MATRIX  ACCORDING  TO  THE 
C MOHR-COULOMB  FORMULATION  (PLANE  STRAIN) 

IMPLICIT  REAL’S (A-H.O-Z) 

DIMENSION  VPREE ( * ) ,SIG (4 ) , VDE(4 , 4 ) , VPL (4 , 4 ) 
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IF(MTYPE.EQ.I)  GO  TO  20 
PI =4 . DO*DATAN ( 1 . DO ) 

C INITIALIZE  MODEL  PARAMETERS 

COH= VP REE (NPRE+1 ) 

PHI=VPREE(NPRE+2)'*PI/1 80 . DO 
PSI=VPREE (NPRE+3 ) *PI/1 80 . DO 
S1=SIG( 1 ) 

S2=SIG(4 ) 

S3=SIG(2) 

S4=SIG(3) 

C OBTAIN  STRESS-DEPENDENT  PLASTIC  MATRIX 

CALL  D02(VPREE, VDE, IKEL, 0) 

CALL  FMPLMC ( S 1 , S2 , S3 , S4 , VDE , VPL , PHI , PSI ) 

C OBTAIN  ELASTO-PLASTIC  MATRIX 

DO  10  1=1,4 
DO  10  J = 1 ,4 

10  VDE (I , J ) = VDE (I , J )-VPL (I , J ) 

RETURN 

20  CALL  D02 (VPREE , VDE , IKEL , 0 ) 

RETURN 

END 

SUBROUTINE  FDP2D  (VPREE , SIG , VDE , IKEL , NPRE , MTYPE ) 

C FDP2D  YIELDS  THE  2-D  ELASTO-PLASTIC  STRESS-STRAIN  MATRIX 
C ACCORDING  TO  DRUCKER-PRAGER  FORMULATION 
C MTYPE  .LE.  1 FORM  ELASTIC  MATRIX 

C .EQ.  2 FORM  ELASTO-PLASTIC  MATRIX 

IMPLICIT  REAL*8 (A-H , 0-Z ) 

DIMENSION  VPREE(*) ,SIG(4 ) , VDE(4 , 4) 

IF( MTYPE. LE. 1)  GO  TO  10 
PI=4 . DO*DATAN ( 1 . DO ) 

C INITIALIZE  MATERIAL  PROPERTIES 

E=VPREE ( 1 ) 

V =VPREE (2 ) 

PHI=VP REE (NPRE+1 ) 

CIN=VPREE (NPRE+2 ) 

TANPHI=DTAN (PI*PHI/1 80 . DO ) 

X=DSQRT(9 . DO+1 2. D0*TANPHI**2 ) 

ALP=TANPHI/X 

ALK=3.D0*CIN/X 


C AI1C  IS  THE  FIRST  INVARIANT  OF  STRESS 

C AJ2C  IS  THE  SQUARE  ROOT  OF  THE  SECOND  INVARIANT 


AI 1C=SIG( 1 )+SIG(4 )+SIG(2) 

A J2C=DSQRT ( ( (SIG( 1 )-SIG(2 ) ) **2+(SIG(2 )-SIG(4 ) ) **2+(SIG (4 )- 
1 SIG(1))**2)/6.D0+SIG(3)**2) 

ABK=E/ ( 3 . DO-6 . DO*V ) 

G=E/ (2. DO+2. DO*V ) 

AHH=3.D0*ABK*ALP/(2.D0*G)-AI1C/(6.D0*AJ2C) 

PP=AJ2C* ( 1 . DO+9. DO*ALP*ALP*ABK/G ) 

CC=1 . DO/ (2. D0*PP*AJ2C ) 

AA=AHH/PP 
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3B=2.D0*AHH*AHH/(1.D0+9.D0*ALP*ALP*A3K/G)-3.D0*V*ABK/E 

G2=2.D0*G 

VDE (1,1 )=G2* ( 1 . DO-2 . DO*AA*SIG ( 1 )-3B-CC*3IG ( 1 ) *3IG( 1 ) ) 

VDE(1 ,3)=G2«(-AA*SIG(3)-CC*SIG(3)*SIG(1 )) 
VDE(1,2)=G2«(-AA*(SIG(1)+SIG(2))-BB-CC*SIG(1)*SIG(2)) 

VDE (2 , 2)=G2*( 1 . DO-2 . D0#AA*SIG (2 )-3B-CC*SIG (2 )*3IG (2 ) ) 

VDE(2, 3)=G2*(-AA*SIG(3 )-CC*SIG(3 )*SIG(2 ) ) 

VDE (3, 3)=G2*(0.5D0-CC*SIG(3)*SIG(3) ) 

VDE(2, 1 )=VDE( 1,2) 

VDE(3, 1 )=VDE( 1,3) 

VD£(3,2)=VDE(2,3) 

VDE ( 1 , 4 )=G2*(-AA* (SIG( 1 )+SIG (4 ) )-3B-CC*SIG ( 1 ) *SIG (4 ) ) 

VDE (2 , 4 )=G2*(-AA* (SIG(2 )+3IG(4 ) )-BB-CC*SIG (2 ) *SIG(4  ) ) 
VDE(3,4)=G2*(-AA*SIG(3)-CC*SIG(3)*SIG(4)) 

VDE (4 , 1 )=VDE (1,4) 

VDE ( 4 , 2 ) = VDE (2,4) 

VDE ( 4 , 3 ) = VDE (3,4) 

VDE (4, 4)=G2*( 1 . DO-2. D0*AA*SIG(4 )-3B-CC*SIG (4 )*SIG(4 ) ) 

RETURN 

10  CALL  D02(VPREE, VDE, IKEL,0) 

RETURN 

END 

SUBROUTINE  FCP2D( VPREE, SIG , C , EL , IKEL , NPRE , MTYPE ) 

FCP2D  YIELDS  THE  2-D  ELASTO-PLASTIC  MATRIX  ACCORDING  TO 
THE  SANDLER  CAP  MODEL 

MTYPE=0 (TENSION  CUTOFF),  =1 (ELASTIC),  =2(FAILURE),  =4(CAP  ACTION) 


IMPLICIT  REAL*8 (A-H , 0-Z ) 

DIMENSION  VPREE ( *) , SIG(4 ) ,C(4 , 4 ) 

C STATEMENT  FUCNTION  FOR  EXPONENTIAL  rfITH  SMALL  ARGUMENT 

EXPS ( Z) =DEXP ( DMAX1 (-500. DO, Z) ) 

C FAILURE  ENVELOPE  FUNCTION  FOR  SJ2 

F(SJ1 )=CA-THETA*SJ1-CC*EXPS ( CB*SJ1 ) 

C CAP  STATEMENT  FUNCTIONS  (CAPL=8IGL(EL) ,XL=X(EL) ) 

R ( CAPL )=CR+0 . D0*CAPL 
X ( EL ) = EL-R ( EL ) *F ( EL ) 

S J2C(SJ1 ,XL,CAPL)=DSQRT( ( XL-CAPL ) **2- (S J 1 -CAPL )**2)/R( CAPL) 
IF( MTYPE . LE. 1 ) GO  TO  30 
C INITIALIZE  MODEL  PARAMETERS 


CA=VPREE(NPRE+1 ) 

CB=VPREE (NPRE+2) 

CC=VPREE (NPRE+3 ) 

THETA=VPREE(NPRE+4 ) 

CD=VPREE (NPRE+5 ) 

CR= VPREE (NPRE+6 ) 

CW=VPREE (NPRE+7 ) 

C MEAN  NORMAL  STRESS,  STRESS  DEVIATION  TENSOR,  INVARIANTS 

PRESS=(SIG(1)+SIG(4)+SIG(2))/3.D0 
SXX=SIG( 1 )-PRESS 
SYY=SIG(4)-PRESS 
SXZ=SIG(3) 

S J1 =3. D0*PRESS 


C 

c 

c= 
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SJ2=DSQRT(SXX*SXX+SYY*SYY+SXX*SYY+SXZ*SXZ) 

CAPL=EL 

XL=X(EL) 

C BEGIN  CALCULATION  OF  PROPER  CEP 

CALL  D02 (VPREE ,C , IKEL , 0 ) 

Cl  1 =C( 1 , 1 ) 

C22=C(2,2) 

C44=C(3, 3) 

C 1 2 =C ( 1,2) 

C33=C(4 , 4) 

C 1 3 =C ( 1,4) 

C23=C(2,4) 


C NOW  DEFINE  PROPER  CEP  FACTORS 

IF(MTYPE.EQ.3)  GO  TO  10 
C FAILURE  SURFACE  CEP  FACTORS 


BCE J=-THETA-C8*CC*EXPS ( CB*S J 1 ) 

S J26=6 . D0*SJ2 

DF1=BCEJ-(2.D0*SIG(1 )-SIG(4)-SIG(2))/SJ26 
DF2=BCEJ-(2. D0*SIG(2)-SIG(4 )-SIG( 1 ) )/SJ26 
DF3=BCEJ-(2. D0*SIG(4 )-SIG( 1 )-SIG (2 ) ) /SJ26 
DF4=-SXZ/SJ2 
DN0M=0 . DO 
GO  TO  20 


C CAP  CEP  FACTORS 

10  CONTINUE 


FF=CR*DSQRT ( (XL-CAPL)**2-(S J1-CAPL)**2 ) 

SJKRY=-(SJ1-CAPL)/FF 

SJ26=6. D0*SJ2 

DF1 =-(2. DO*SIG ( 1 )-SIG(2 )-SIG(4 ) )/SJ26+S JKRY 
DF2=-(2. D0*SIG(2)-SIG( 1 )-SIG(4 ) )/SJ26+SJKRY 
DF3=-(2. D0*SIG(4 )-SIG(2 )-SIG( 1 ) )/SJ26+S JKRY 
DF4=-SXZ/SJ2 

FI =1 . DO+CR*THETA+CR*CC*CB*EXPS( CB*CAPL) 

F2=CW*CD*EXPS ( CD*XL ) 

DN0M=(DF1+DF2+DF3)*(XL-CAPL+(SJ1-XL)/F1 )/F2/FF 
C NOW  CACULATE  THE  CEP  ENTRIES 

20  DNOM=-DNOM+C 1 1 *DF 1 *DF 1 +2 . DO*C 1 2*DF 1 *DF2+2 . DO*C 1 3 *DF 1 *DF3+ 

1 C22*DF2*DF2+2.D0*C23*DF2*DF3+C33*DF3*DF3+C44*DF4*DF4 

A 1 =C 1 1 *DF 1 +C 1 2*DF2+C 1 3 *DF3 
A2=C 12*DF 1 +C22*DF2+C23*DF3 
A3=C13*DF1+C23*DF2+C33*DF3 
C(1, 1)  = C(1, 1)-A1*A1/DN0M 
C(2 , 2)=C( 2, 2)-A2*A2/DN0M 
C(3,3)=C(3,3)-(C44*DF4)*»2/DNOM 
C ( 1 ,2)=C(1,2)-A1*A2/DNOM 
C(2, 1 )=C( 1 ,2) 

C(1 ,3)=C(1 ,3)-C44*DF4*A1/DMOM 
C(3, 1 )=C( 1,3) 

C(2, 3 )=C(2, 3)-C44*DF4*A2/DNOM 
C(3,2)=C(2,3) 

C(4,4)=C(4,4)-A3*A3/DNOM 

C(3,4)=C(3,4)-C44*DF4*A3/DNOM 

C(4,3)=C(3,4) 

C(1,4)=C(1,4)-A1*A3/DNOM 
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C( 4 , 1 )=C( 1 , 4 ) 

C(2,4)=C(2,4)-A2*A3/DM0M 

C(4,2)=C(2,4) 

RETURN 

CALL  002 (VP REE , C , IKEL , 0 ) 

RETURN 

END 

SUBROUTINE  FVS2D(VPREE , VCORE , SIG, VDE, ROWA, ATMP, NPRE ) 


FVS2D  YIELDS  THE  TANGENT  MODULUS  FOR  NONLINEAR  INTEFACE  ELEMENT 
WITH  A VARIABLE  MODULI  MODEL  BASED  ON  HYPERBOLIC  EQUATION 


IMPLICIT  REAL*S ( A-H , 0-Z ) 

DIMENSION  VPREE(») ,VCORE(») ,SIG(4 ) ,VDE(4,4) 


PI =4 . DO*DATAH ( 1 . DO) 

CALL  D02CVPREE, VDE,  2,1) 

C INITIALIZE  MODEL  PARAMETERS 

PHI=VPREE (NPRE+1 )*PI/180.D0 
COH=VPREE (NPRE+2 ) 

XK=VPREE (NPRE+3 ) 

EXPN=VPREE (NPRE+4 ) 

RF=VPREE(NPRE+5) 

C FIND  THE  NORMAL  STRESS  ANGLE  WITH  RESPECT  TO  X-AXIS 

DX1 3=VC0RE (5 )-VCORE ( 1 ) 

DY1 3=VC0RE (6 )-VCORE (2 ) 

DL 13=DSQRT(DX1 3**2+DY13**2) 

DX 17= VCORE ( 1 3 )-VCORE ( 1 ) 

DY17=VC0RE ( 1 4 )-VCORE (2 ) 

DL17=DSQRT(DX17**2+DY17**2) 

IFCDL13.LT.DL17)  C0S=DX1 3/DL13 
IFCDL13.LT.DL17)  SIN=DY1 3/DL13 
IFCDL13.GT.DL17)  C0S=DX17/DL17 
IF( DL 1 3 • GT. DL 17 ) SIN=DY17/DL 17 

C COMPUTE  THE  NORMAL  STRESSES.  NOTE  CHANGE  OF  SIGN 

SN=SIG( 1 )*COS*COS+SIG(2)*SIN*SIN+2.DO*SIN*COS 
SS=SIG(3 ) * ( COS*COS-SIN*SIN )-(SIG ( 1 )-SIG (2 ) ) *SIN*COS 
SS=DABS(SS) 

IF(SN.LT. 1.D-30)  RETURN 

C COMPUTE  THE  TAGENT  MODULUS 

FACTOR= 1 . DO-RF*SS/ ( COH+SN*DTAN (PHI ) ) 

IFCFACTOR.LT. 1.D-10)  RETURN 

D33=XK*ROWA* (SN/ATMP) **EXPN*FACTOR*FACTOR 

IFCD33.LE.O.DO)  RETURN 

VDE(3,3)=D33 

RETURN 

END 
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